FlamingClaw

the doscommand unit contents you have to use this unit in the uses section [code=delphi] { this component let you execute a dos program (exe, com or batch file) and catch the ouput in order to put it in a memo or in a listbox, ... you can also send …

I'll try to explain everything... [code=pascal] Program Solution; Uses Crt; type data=record name:string; tel :string; end; var infor:array[1..2] of data; F:file of data; i:Byte;{our little helper...} Begin {the main program} ClrScr; { here you assign the file's variable to the file. Remember that the 'file' word is reserved word! } …

I created a form ,and put 5 memos as memo1,memo2,memo3,memo4,memo5.And put a button too as button1. I copied the 4 memos contents to the 5th and saved the 5th memo5 contents is saved to a txt file. I selected and set the memo5 in the Object Inspector visible := FALSE,so …

-=ShutDown=- Enables you to shut down or restart local or remote computers one at a time. Syntax shutdown [/i | /l | /s | /r | /a | /p | /h | /e] [/f] [/m \\<ComputerName>] [/t <XXX>] [/d [p|u:]<XX>:<YY> [/c "comment"]] Parameter Description /i Displays the Remote Shutdown Dialog …

Hi [b]satasonic[/b] In pascal there are two functions like Low() and High() [code=pascal] Program LowAndHigh; Uses Crt; Var MyArray:Array[0..124]Of Byte; Begin ClrScr; {min value:Low function} WriteLn('Minimum value of MyArray: ',Low(MyArray)); {max value:High function} WriteLn('Maximum value of MyArray: ',High(MyArray)); ReadLn; End. {Written by FlamingClaw} [/code]

what do you want exactly? if you send 'abcdef' then recieve the whole string? [code=delphi]Stream.Read(S,Length(S));[/code]

try to use record! [code=pascal] Type newtypeR = Record name:string; phone:longint; mail:string; End; [/code] And then you can define an array like [code=pascal] Var myarray:Array[1..10] Of newtypeR; {so every element of the array is a record that has three separate fields} [/code] so when you want to add new member …

First compile this unit with your pascal compiler [code=pascal] Unit Lengyel; INTERFACE {a verem adatszerkezethez készült típusok} Type PVeremelem=^TVeremelem; TVeremelem=Record Ertek: Byte; Ertek2: Real; Next: PVeremelem; End; Verem=Record First: PVeremelem; Last: PVeremelem; End; {Hia konstansok} Const Er_DivBy0 = 1; Er_Zarjel = 2; er_Illegal= 3; Var hiba: byte; Function GetResult(s: String): …

Turbo pascal 7.0. Labels' identifier can be numbers from 0 to 9999,and any name that can be an identifier... Free Pascal A label is a name for a location in the source code to which can be jumped from another location with a Goto statement. Labels can be[B] digit sequences[/B] …

yes ...yes [code=delphi] ... ... if ((Choice='R') and (Computer=2)) or ((Choice='P') and (Computer=0)) or ((Choice='S') and (Computer=1)) then begin writeln('You win'); end else if ((Choice='R') and (Computer=0)) or ((Choice='P') and (Computer=1)) or ((Choice='S') and (Computer=2)) then begin ... ... [/code] :D

Loggin C:drive's xp install the sound driver restart computer and loggin d:drive's xp and install here too

You can use arrays... :D I created a solution for your question [code=pascal] Program SimpleCalculator; Uses Crt; Type NewArray = Array[1..3]Of Real; Var a,b,c:NewArray; e:Char; i:Byte; Procedure OutWrite(x:NewArray); Var y:Byte; Begin For y:=1 To 3 Do Begin If (y=3) Then Write(x[y]:1:0,' ') Else Write(x[y]:1:0,','); End; End; Begin ClrScr; {put the …

[code=delphi] program project2; {$APPTYPE CONSOLE} uses SysUtils{, ourcrt}; var num1, num2: integer; {let's see the first run} begin num2:=0; repeat num1:=num2+1; {num1=1} if (num1 mod 2=1) then {if there is remainder} begin writeln(num2); {then write num2 that's 0} end else begin num1:=num1+1; {if there isn't,then num1=2} end; num2:=num2+1; {num2=1} until …

[code=delphi] { 1,DISPLAY a title for the program 2,Issue the statement that stops your random numbers always coming out as zero 3,Ask the user for Heads or Tails 4,INPUT guess 5,Generate a random number less than 2 call this computer 6,IF computer = 0 THEN 7,SET coin = h 8,OUTPUT …

I didn't understand everything... You said,the function made by you... Can you send some code?Too less information about your function....

set the bios to boot from hdd(hard disk drive) if it isn't helps then set the bios to boot from cd/dvd and put the op-system disk and format with that....after formatting that hard disk all of your data will be lost....

I found a nice function: [URL="http://delphi.about.com/od/windowsshellapi/a/volumeserial.htm"]delphi.about.com[/URL]

I created a form as form1 I placed two buttons as button1 and button2 button1 [code=delphi] procedure TForm1.Button1Click(Sender: TObject); begin form1.AlphaBlend:=True; end; [/code] and the button2 [code=delphi] procedure TForm1.Button2Click(Sender: TObject); begin form1.AlphaBlend:=False; end; { of course my form1.AlphaBlendValue set to 100 to make the window transparent } [/code] and it …

[QUOTE=Linda Williams;921887]Help ! I need to reload my DVD drive; I cannot access or play CDs; I have an error code 19; I've already remove the upper and lower filters, but it is still not working. Thanks for your help.[/QUOTE] Do you see your dvd drive in the P.O.S.T (Power …

[URL="http://www.devdirect.com/delphi/SERIALCOM_PCAT_1912.aspx"]http://www.devdirect.com/delphi/SERIALCOM_PCAT_1912.aspx[/URL] [URL="http://wareseeker.com/download/windows-std-serial-comm-lib-for-delphi-4.3.rar/318452"]http://wareseeker.com/download/windows-std-serial-comm-lib-for-delphi-4.3.rar/318452[/URL] [URL="http://www.gold-software.com/WindowsStdSerialCommLibforDelphi-file9146.html"]http://www.gold-software.com/WindowsStdSerialCommLibforDelphi-file9146.html[/URL] [URL="http://www.componentsource.com/features/serial-communication/delphi/index.html"]http://www.componentsource.com/features/serial-communication/delphi/index.html[/URL] [URL="http://www.caseagainstfaith.com/other_stuff/delphi.htm"]http://www.caseagainstfaith.com/other_stuff/delphi.htm[/URL] If it is not enough then try your browser with 'Delphi Serial Comms Package CPort'.....

I found some info about your known problem [URL="http://support.microsoft.com/?scid=kb%3Ben-us%3B330303&x=8&y=8"]support.microsoft.com[/URL] I think this is not ram problem

You can find the [URL="http://www.delphibasics.co.uk/Article.asp?Name=SecondPgm"]answer here[/URL] :D

What do you want convert real to integer?

or this one [URL="http://www.softwarepatch.com/software/filerecovery.html"]http://www.softwarepatch.com/software/filerecovery.html[/URL]

I don't know where is the problem,this program working well put a dot to the end of the main program,and stop the program with rhe ReadLn; command [b] writeln; writeln('This program has finished now'); ReadLn; end. [/b]

your hard drive is working,that crashed?If yes and you have another hard drive then your problem is not hopeless.... If the above conditions are true then search in the [b]Google[/b] for [i]Get Data Back[/i].This little program will revive your data from a formatted hard drive....

-=Correcting System Hang at StartUp=- If your system hangs about 2 or 3 minutes at startup, where you can't access the Start button or the Taskbar, it may be due to one specific service (Background Intelligent Transfer) running in the background. 1. Press Win Key+r, type 'msconfig', then click 'OK'. …

try this page for more information [URL="http://www.delphibasics.co.uk/Article.asp?Name=DataTypes"]http://www.delphibasics.co.uk/Article.asp?Name=DataTypes[/URL]

Hi Turbomen. On my land,hungary,there is a rule. PAPER stronger then ROCK ROCK stronger then SCISSORS SCISSORS stronger then PAPER think of it as precedence rule... :D by the way, [b]computer:=Random(2);[/b] will always 1 or 0 cause [i] Generates random numbers within a specified range. Unit : System Category: random …

did you restart your system?

What about units....? Do not forget to add TRegExpr into uses section of the unit. :D

First let's see the algorithm.... We need 3 variables for the 3 numbers,right? We have to check the numbers one by one to see what is bigger or smaller... And then,alert the user ....

is the keyboard plugged in properly?Is not broken? Did you try another keyboard too,is the same problem?

another alternative :D [code=delphi] {Little tutorial for real type} {real type is stores floating point numbers like 3.14 or 0.1234} {The generic type Real is equivalent to Double. Type:Real, Range:5.0 x 10^-324 .. 1.7 x 10^308 Significant digits:15-16 Size in bytes:8} {if you want to divide 2 numbers then the …

On one cable one master and one slave,set the jumpers If you want to install Xp,set the BIOS to boot from cd/dvd,put the xp disk and first format the partition with NTFS,cause the xp needs it.If you want to format the 3 Gb harddisk too,then format it the same file …

Required : Windows XP operating system, Windows XP cd Place the xp cd in your cd/dvd drive Press win key+r type in 'sfc /scannow' (without the ') Now it should all load, and fix all your corrupted file on windows XP

is the .50 is 0.5 ? Precedence rule..? 1. () 2. not 3.*,/,div,mod,and 4.+,-,or,xor 5.<,>,=,<=,>=,<>,= If there are same of precedence of operators,then the evaluating is left to right... so (200*0.5)*2+(25.4*Label2.Caption)

the answer is very simple... [code=delphi] Program sumof2numbers; {$APPTYPE CONSOLE} Uses SysUtils; Var number1, number2, total: integer; ch1,ch2:Char; {add 2 vars as chararacter type} Begin ch1:='+'; ch2:='='; writeln ('Please enter a number'); readln (number1); writeln ('Please enter another number'); readln (number2); total :=number1+number2; writeln ('The total of the two entered …

Is this a compiler error message? Then 2:Identifier expected,106:Character expression expected

I found a page [URL="http://www.user-guides.co.uk/cddownload/Acer/AcerAspire/Acer-Aspire-M5620-XP-Driver-CD-Recovery-Restore-Disk-115951.html"]here[/URL],...but it is not free

the answer is resting [URL="http://delphi.about.com/od/graphics/l/aa082801a.htm"]here[/URL]

did you install any printer? try to reinstall it ....

first create a groupbox (it will groupbox1) then click only once on the groupbox1 to get focus,and then add some checkboxes :D

look at these pages [URL="http://www.yoraispage.com/articles/20050625.asp"]http://www.yoraispage.com/articles/20050625.asp[/URL] [URL="http://www.delphifaq.com/faq/delphi/network/f525.shtml"]http://www.delphifaq.com/faq/delphi/network/f525.shtml[/URL] [URL="http://www.delphifaq.com/faq/delphi/network/f517.shtml"]http://www.delphifaq.com/faq/delphi/network/f517.shtml[/URL] I hope these helps to you a bit

simple I/O checking... :D [code=pascal] program factorial; uses wincrt; var counter:integer; number:integer; total:longint; Begin write('Enter your number '); {$I-} {checking off} readln(number); {$I+} {checking on} {if the IoResult is not zero then alert the user} If (IoResult <> 0)Then Begin Write('Wrong char,please just numbers!'); ReadLn; End Else Begin total:=1; counter:=1; …

what if you copy the contents of your text file into an array if your condition becomes true then delete one element from that array and write back to the file ..... I wrote a console apps for this problem. Your text file located in 'C:' and named 'yourfile.txt' by …

try a system restore,maybe wrong driver update...

good place to start [URL="http://delphi.about.com/od/vclusing/a/component_array.htm"]Managing component arrays[/URL]

I found the answer [URL="http://delphi.wikia.com/wiki/Colors_in_Delphi"]Colors in delphi[/URL]

Hi Killhha one solution : [code=pascal] { so lets say i have a program and it keeps on outputting the letter 'A' constantly until the user presses enter or something. then it will exit the loop and continue with the rest of the program. how would i do this? } …