1,899 Topics

Member Avatar for
Member Avatar for Bilal gulbaz
Member Avatar for november_pooh
Member Avatar for Bilal gulbaz
2
3K
Member Avatar for EkoX

Hi.. how to calculate distance between two points.. each point have a coordinates (x,y). please help..

Member Avatar for Jx_Man
2
428
Member Avatar for livingsword

hi, im a beginner. i hav an assignment on Pascal's triangle. i saw some post over the topic but couldnt get it to work with my code. heres what i have done so far.... [code=c] #include<stdio.h> #include<conio.h> void main() { int a[10][10]; int i,j,c,n; clrscr(); printf("Enter how many lines do …

Member Avatar for vipinkumar512
0
745
Member Avatar for corl45

ok, im making a basic program in pascal. like a text based calculator (i dont know how to make GUIs) so lets say i have a peice of code like this: [CODE]program test; var A,B,C:real; begin writeln('enter the first number'); readln(A); writeln('enter the second number'); readln(B); C:=A/B; writeln('your answer is: …

Member Avatar for passw
0
125
Member Avatar for Morten Brendefu

A "normal" Delphi snippet: [CODE]Procedure help_me1(Sender: TObject); BEGIN {100 lines of code} END; Procedure help_me2(Sender: TObject); BEGIN {100 lines of copy and paste code} END;[/CODE] [COLOR="Green"]How can I make this so that I end up with ONE procedure with 100 lines of code?[/COLOR] [CODE]Procedure much_reuseable_code(choice:BYTE); BEGIN {100 lines of code} …

Member Avatar for Morten Brendefu
0
204
Member Avatar for gravexxx

I am not showing all the code it is not necassary. TheInternets : TWebBrowser; I wrote a program to navigate to a server that my friend has up. Then it should get a result and display it. This takes about a second to execute which is really bad for my …

Member Avatar for Wolfgan
0
161
Member Avatar for jigneshdesai
Member Avatar for Zumla

Hi, Does anyone know a simple way of extracting file information such as that shown in the details tab of file properties? I am new to Delphi and I don't have much experience, codes on the internet which I have found are not very helpful and only successfully extract file …

0
166
Member Avatar for ReaperUser101

Hi everyone Im trying to take my SQl and "SCRIPT" it to a .sql file(accomplished) and add it to my Delphi(accomplished) and then [U]connect them[/U] and show the data in a TDBGrid but seem to be battling. The .sql file adds and creates the Database in delphi but I don't …

Member Avatar for pritaeas
0
248
Member Avatar for annsampson

high my program is not running properly the run screen never stays on error message "error linking" Program Auto_Company; Var carmodel:ARRAY[1..10]OF STRING; category:ARRAY[1..10]OF string; noofcars:integer; rentalfee:real; totalrentalcost:real; carentry:string; appcar:integer; A:char; B:char; C:char; Chevrolet:string; HondaCivic:string; NissanPrimera:string; NissanB14:string; Subaru:string; MitsubishiLancer:string; Mazda:string; Mercedes:string; BMW:string; Peugeot:string; R:INTEGER; Procedure INTRODUCTION; BEGIN Writeln('Welcome to program Auto_Company'); …

0
64
Member Avatar for ClanTag

Heyyy everyone =). Im a freshman in Highschool taking a computer programming class. I was just wondering if you guys could look over my code and see if there is anything that I could have done more efficiently (i.e. using less ram, less code). The objective of this program is …

Member Avatar for pritaeas
0
159
Member Avatar for Fudgey

Hi Everyone, I am having some trouble with the libmysql.dll file in Delphi 7. When I try to connect to a database with the dbexpress MySQL driver, i get the error "Unable to load libmysql.dll". I have tried the following to resolve my problem: [LIST] [*]installing different versions of MySQL …

Member Avatar for Simon180
0
502
Member Avatar for Planetdune

Hey fellow delphirinos, I am currently using the following code to get an application in my application: [CODE]procedure TForm1.Button1Click(Sender: TObject); begin ShellExecute(Application.Handle,'Open','Notepad.exe' ,nil,nil,SW_NORMAL); //Wait for it to be loaded. Sleep(500); //Get the handle of the other program using the caption of the window. wHandle := FindWindow(NIL,'Untitled - Notepad'); //Now change …

Member Avatar for drjoeblack
0
108
Member Avatar for NicAx64

Hi , I hate the hard copy versions of the Books. Those books are really weight than me . I get hard time in carrying them. what I need is CHM or PDF or djvu , html or txt ebooks. where I can transaction (pay money and download ) those …

Member Avatar for smithjackson
0
117
Member Avatar for douglaspr

Good evening, was wondering how can I read data record from a text file, if they want to read data from a text: (Offset : $4C8259; MemDump :($A1, $38, $BD, $4C, $00, $8B, $00, $8B, $4D, $FC, $BA, $C0, $82, $4C, $00, $E8, $1F, $F1, $FF, $FF, $33, $DB, $E8, …

Member Avatar for delphiman
0
207
Member Avatar for killhha

I have been using Pascal for around 3-5 months now. I still haven't figured out how to return random answers. for instance there are 5 integers: var a,b,c,d,e : integer; and now the computer will tell you a random integer like: writeln(c); this is just an example of course because …

Member Avatar for pritaeas
0
4K
Member Avatar for nla1kor

i need a code/function to suppress security messages in Windows 7 (Eg: Do you want to run install updatesetup.exe yes or no... i need to go ahead with yes instead of displaying such messages.

0
49
Member Avatar for _Ada_

This is a trivial question that Im having a blonde moment over. Been a while since I did any serious programming, Ada, Pascal, C etc etc I have two forms created at design time. Form1 and Form2. Form 1 has a button which when clicked should open Form 2 Could …

Member Avatar for Wolfgan
0
76
Member Avatar for Planetdune

Hey, I have a online mysql database and it has a table with a few thousand records. Now nothing special there, my question is however. One of the fields of every row has content like this: 2 9 14 119 5 543 1479 35 90 .... <-- this field will …

Member Avatar for pritaeas
0
162
Member Avatar for tucode

HI..I'M DEVELOPING AN APPLICATION USING DELPHI. NOW, I AM CONVERTING MY APPLICATION TO SERVICE TYPE BUT IT HAS ERROR. THE ERROR IS IN THIS CODE "Application.Exename". NOW I JUST WANNA ASK, WHAT IS THE EQUIVALENT OF "Application.Exename" IN SERVICE? THIS CODE IS WORKING ONLY IN APPLICATION TYPE BUT NOT IN …

Member Avatar for pritaeas
0
86
Member Avatar for tsbrownstone

I am attempting to run a delphi 7 developed application on a windows 7 64bit laptop. I've placed the redistributables in the system32 folder, like always. the application has been installed in the program files (x86) directory (it didn't work at all under the program files directory) when I go …

Member Avatar for tsbrownstone
0
349
Member Avatar for TRCSR

I have a program for data acquisition and process control. I use TeeChart for real time plotting of data. I also have a legend window on top of the chart. I can print or save to disk the TeeChart, but would prefer to print/save the entire screen including the legend …

Member Avatar for dlhale
0
233
Member Avatar for JacobBruce

Just wondering if someone can tell me what I'm doing wrong here, I just can't seem to work this out, I keep getting errors. [CODE]function GetColorFromBmp(XX, YY: Integer; Bmp: TBitmap): TColor; var Line: PRGB32Array; begin Line := Bmp.ScanLine[YY]; Result := RGBtoColor(Line^[XX].R, Line^[XX].G, Line^[XX].B); end; procedure SetColorOnBmp(XX, YY: Integer; Color: TColor; …

Member Avatar for JacobBruce
0
197
Member Avatar for lelejau

Hello. How can I protect my application against Memory Editors? Like, Cheat Engine, Debuggers, etc.

Member Avatar for FreeBirdLjj
0
90
Member Avatar for FlamingClaw
Member Avatar for JacobBruce

Does anyone know which of these are quicker? [CODE]procedure SetMousePos(Point: TPoint); begin Mouse.CursorPos := Point; end; function GetMousePos: TPoint; begin Result := Mouse.CursorPos; end;[/CODE] [CODE]procedure SetMousePos(Point: TPoint); begin SetCursorPos(Point.X, Point.Y); end; function GetMousePos: TPoint; begin GetCursorPos(Result); end;[/CODE]

Member Avatar for pritaeas
0
317
Member Avatar for Maggy0426

Hello everyone, I am using Delphi2010 and I'm trying to do an insert into multiple tables. I don't know the best way to do this. What I'm wondering is if there is a possible way to do one insert using one of Delphi's tools like the TQuery or TClientDataSet or …

Member Avatar for Maggy0426
0
211
Member Avatar for tucode

hi,is there a delay function in delphi?coz' i dont want to use sleep because sleep is not doing right it hangs the program.

Member Avatar for Wolfgan
0
69
Member Avatar for RobMan2000

greetings all. this is my first post on these forums so excuse me if i'm not familier with etiquettes! im looking for a way of making my program wait before continuing on to the next line of code. i know a function does exist, it is even one i have …

Member Avatar for Wolfgan
0
2K
Member Avatar for MarkHolm

This seems to work well until I try to create the 11th button. Any suggestions? [CODE] procedure TForm1.FormClick(Sender: TObject); var nb: TButton; begin Inc(n); nb := TButton.Create(Self); nb.OnClick := ButtonClick; SetLength(ca, n); ca[n] := nb; ca[n].Left := 8; ca[n].Top := (((n - 1) * nb.Height) + 8); ca[n].ParentWindow := Form1.Handle; …

Member Avatar for Wolfgan
0
409
Member Avatar for Pekulacis

I hope that someone can help me with this problem. I need to allow only characters in input: Example I have procedure to add records to my database [CODE]procedure AddRec( var fff:Myfiletype; FileOpen: boolean); var rec:myrec; tmp:MyFileType; begin assign(tmp,'data.tmp'); reset(fff); rewrite(tmp); seek(fff,0); while not eof(fff) do begin read(fff,rec); write(tmp,rec); end; …

Member Avatar for Maggy0426
0
334
Member Avatar for MasterMic

I've taken 1 course in Java and 1 in C++ and now I'm tinkering with Python (love it so far). My module I'm currently working on is designed to solve a certain puzzle. To understand the code you'll need to understand the puzzle: There is an upside down triangle with …

Member Avatar for MasterMic
0
270
Member Avatar for mmhp

Hi, I'm trying to learn delphi. I'm writing a binary tree unit and so far I only have insert and check size. I'm having trouble with inserting a new node into a nonempty tree. Got access violation at runtime and while in debugging mode, the value of sRoot^.Data is in …

Member Avatar for mmhp
0
148
Member Avatar for max_22

hi!I have a problem. There's the Access database embedded into dbrid using ADO. In db there is a list of goods,quantity and countries where goods were produced Now I have to build a diagram for db, for example for countries. It works quite well but the diagram shows EVERY good, …

0
81
Member Avatar for Pundia

Hi people, I'm trying to make a program that reads and counts words and their frequency. After a few days trying I just make the program read a text, counts the words and everything BUT just if there's no more than one ' ' space character at a time. And …

Member Avatar for Pundia
0
380
Member Avatar for Pundia

Hi, I want to sort a TStringList but not by the strings in it, but by the Objects. Here's my code: [CODE]var i : integer; iCount : integer; idxFound : integer; someText : string; s : TStringList; oneWord : string; aux : integer; begin someText := memo_txtfile.text; oneWord := ''; …

Member Avatar for Pundia
0
836
Member Avatar for taurus3

The combinations function C(n, k) is usually defined in terms of factorials, as follows: C(n, k) = n!/(k!*(n-k)!) The values of C(n, k) also leads to the Pascal Triangle: C(0, 0) C(1, 0) C(1, 1) C(2, 0) C(2, 1) C(2, 2) C(3, 0) C(3, 1) C(3, 2) C(3, 3) C(4, …

Member Avatar for MosaicFuneral
0
474
Member Avatar for pritaeas

SetAutoSubClass() has been deprecated in newer versions of Delphi. Can anyone tell me what to replace it with ? I cannot find it in the Delphi 2009 OLH, nor in the VCL source (Forms).

Member Avatar for pritaeas
0
142
Member Avatar for Honeydew

Write a program that accepts a student’s name, form class, and number of books borrowed for the month of October. Determine the name of the student that has borrowed the most amount of books during the month of October and displays in certificate-form the student with the highest number of …

Member Avatar for pritaeas
0
163
Member Avatar for Petrica7

How do I detect that a drive is internal or connected to a USB port? For example I now the letter of a partition from that drive. If I use GetDriveType on one connected to USB it says that it is fixed not removable. I found some code with witch …

Member Avatar for Petrica7
0
883
Member Avatar for ChaosKnight11

Hi, I have a fancy animated GIF loader that I want to use in projects, but the problem is that the image is only 48x22. Is there some way I can tile the image horizontally to lengthen it? The only solutions I found on the web was with bitmap images. …

Member Avatar for pritaeas
0
119
Member Avatar for DrRodge

If programA starts Delphi programB, is there any way that programB can determine whether it was started by programA or by some other program?

Member Avatar for Wolfgan
0
109
Member Avatar for amberclaw

Hi, i´m quite new in pascal programing. Can someone explain me please why [CODE] function kolik(pocet:integer; retez: string):integer; var p: array[1..pocet] of integer; pomocna,j,i,k,l,od,nep:integer;[/CODE] is compiler telling me p: array[1..pocet] of integer; cannot evaluate this expression? Thank you in advance

Member Avatar for Wolfgan
0
154
Member Avatar for Crossbow888

Hi, New to programming. I have three Editboxes and a button - I would like to know how to make Button1.Enabled := true when all editboxes have at least one character of input and := false when even just one of the editboxes has no imput in it - is …

Member Avatar for Wolfgan
0
100
Member Avatar for hariharans87

Hi, I have PIC32MX795F512L. I have used the "USB Host - MCHPUSB - Generic Driver Demo - PIC32 USB Starter Kit II.mcp" Firmware. I am very new to Delphi. So I have copy and paste the code from [URL="http://www.sixca.com/delphi/article/microchip_usb.html"]http://www.sixca.com/delphi/article/microchip_usb.html[/URL] It is working fine. I want to use the UPDATE_LED (change …

Member Avatar for pritaeas
0
180
Member Avatar for Petrica7
Member Avatar for Petrica7
0
209
Member Avatar for thusarix

the title it's self explanatory i am using freepascal with the Lazarus IDE and this is quite a challenge for a noob like me so please the code with some explanation

Member Avatar for dhee.outsider
0
1K
Member Avatar for Petrica7

I'm making a small program for a tvtunner. One of its functions is the ability to change audio level (master/wave/linein...). In Windows XP works fine. In Vista/7 I know only IAudioEndpointVolume interface. It works only for master volume. So, until I will find a better solution, I start the program …

Member Avatar for Petrica7
0
110
Member Avatar for abulwleed

Hi , please I am a student in economy so I don't know any thing about programming but we have Delphi course in our courses. so the doctor request from us a small project from every student and it is 25% from 100% from all marks in the course. so …

Member Avatar for abulwleed
0
92

The End.