Posts
 
Reputation
Joined
Last Seen
Ranked #302
Strength to Increase Rep
+10
Strength to Decrease Rep
-2
93% Quality Score
Upvotes Received
55
Posts with Upvotes
53
Upvoting Members
25
Downvotes Received
3
Posts with Downvotes
3
Downvoting Members
3
26 Commented Posts
~132.48K People Reached
About Me

Just living in hungary.Teaching myself in pascal. I have time to programming when I'm going to home,cause my job is not a good place for that. Don't forget that if you ask something on the forum and you got the right answer then [b] mark as solved !![/b]

Interests
I like my pc.I'm learning pascal,and sometimes reading delphi
PC Specs
p4 processor intel 3000Mhz/2Mb cash 64/32bit (prescott) pentium 2048 Mb 667 Mhz ram MoterBoard:MSI945pneo2…

352 Posted Topics

Member Avatar for killhha

Hi killhha. I know that your thread is solved. I wrote a little program for the ascii table's key codes: [code=pascal] Program solution; Uses Crt; Var i:Byte; Begin WriteLn('The numbers are:'); For i:=0 To 255 Do WriteLn('#',i:3,'=',Chr(i)); WriteLn('Press enter to continue...'); ReadLn; End. [/code] But if you want to see …

Member Avatar for RandomGuy2606
0
1K
Member Avatar for FlamingClaw

Our text file contains 10 words,and located in C:\ drive,we will read this data into an array and write out the results to the screen Created by FlamingClaw 2009.04.26.

Member Avatar for gurisa
1
3K
Member Avatar for cp3mvp

It is a really simple calculator :) [code=pascal] program simple_calculator; uses crt; var a,b,result:real; m:set of char; choice:char; begin clrscr; m:=[]; include(m,'+'); include(m,'-'); include(m,'*'); include(m,'/'); repeat write('num1: '); readln(a); write('num2: '); readln(b); write('operator: + - * / : '); readln(choice); case choice of '+':result:=a+b; '-':result:=a-b; '*':result:=a*b; '/':result:=a/b; end; until choice …

Member Avatar for DonnSchwartz
0
481
Member Avatar for hanchiu

By default, Windows XP opens all picture files (gif,jpg,...) with the included Windows Picture and Fax Viewer no matter what other picture viewers you have installed. To disable the Windows Picture and Fax Viewer, unregister shimgvw.dll. This can be done from command prompt: regsvr32 /u shimgvw.dll (Additional note: unregistering shimgvw.dll …

Member Avatar for jpeek345
0
991
Member Avatar for turbomen

your code is working well,where is the problem????? you can write here too:[b] if posNeg=0 then begin balance:=balance*-1; writeln('Can you hear that sound? Its your cheque bouncing'); sound(200,1000); end; If NegPos = 1 Then writeln ('Positive balance'); [/b] In your example if you put a semicolon[b];[/b] after your If statement's …

Member Avatar for htir
0
205
Member Avatar for Scottie_uk

array lenght = size of the element type * index You can find the size of the array in the memory as I show it above. Delphi (object pascal) has dinamic array, that we can set the length by the SetLength(array_name, element_number) procedure, so the elements starting from 0 to …

Member Avatar for Smileydog
0
6K
Member Avatar for cubicbox

[URL="http://www.daniweb.com/code/forum124.html"]http://www.daniweb.com/code/forum124.html[/URL]

Member Avatar for pritaeas
0
3K
Member Avatar for Jiggle

try the softwer center in your main menu, go to the programming section, and write: pascal, and you'll get a list about pascal packages, like Lazarus, freepascal, etc, just click and install. Fully woriking, I tryed it.

Member Avatar for wpeckham
0
115
Member Avatar for FlamingClaw
Member Avatar for Morten Brendefu
0
255
Member Avatar for bogut

The Randomize procedure task is to set the RandSeed constant to generate always random numbers...so it is need realy. :-D

Member Avatar for FlamingClaw
0
191
Member Avatar for cello2010

get a xp installer 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

Member Avatar for anu07
-2
167
Member Avatar for murpeg

Or if the above not helps,then you can try the direct download [URL="http://dllcentral.com/uxcore.dll/12.0.1111.1005/"]http://dllcentral.com/uxcore.dll/12.0.1111.1005/[/URL]

Member Avatar for patriciabigelow
0
322
Member Avatar for pen2satya

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

Member Avatar for gerbil
0
270
Member Avatar for JavaBean

First download the developer kit from the [URL="http://java.sun.com/javase/downloads/index.jsp"]http://java.sun.com/javase/downloads/index.jsp[/URL].Select jdk to download. After downloading it,install the file. If it is success then open command prompt and type [icode]java -version[/icode] and press enter,if the installation is good then the command prompt is writes the actual java version in your computer... like : …

Member Avatar for stultuske
0
513
Member Avatar for josh48

[code] ... ... ReadLn(BallsNo); ptr:= 1; While ptr <= 1 Do Begin {you wrote < sign instead of <=, got it?} ... ... [/code]

Member Avatar for TrustyTony
0
124
Member Avatar for NicAx64

If you wanna pay for these just do it [URL="http://worldpubliclibrary.org/"]http://worldpubliclibrary.org/[/URL]

Member Avatar for smithjackson
0
117
Member Avatar for killhha

Another example? [code=pascal] Program RandomNumbers; Uses Crt; Var A,B,C,i:Integer;{-32767..32768} Begin {main} ClrScr; Randomize; {shuffling} For i:=1 To 3 Do {this just that see the results for three times} Begin A:=Random(20); {tis will generate one number from 0 to 20} WriteLn(A); {write the results..} B:=Random(20); WriteLn(B); C:=Random(20); WriteLn(C); WriteLn; End; ReadKey; …

Member Avatar for pritaeas
0
4K
Member Avatar for FlamingClaw
Member Avatar for thusarix

let's see... :D [code=pascal] (*your source code interpretered...by me*) program text_files; var f,(*in.txt*) g:text;(*out.txt*) x:string; (*one string...*) begin (*in.txt's path assigned to f var*) assign(f, 'd:\pascal\dosare\in.txt'); (*out.txt's path assigned to g var*) assign(g,'d:\pascal\dosare\out.txt'); (*x's value is be that string..?,why?,if you don't use it?*) x:='d:\pascal\dosare\in.txt'; reset(f); (*open for reading f*) rewrite(g); …

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

I uploaded a book about object pascal [URL="http://www.daniweb.com/forums/thread187150.html"]http://www.daniweb.com/forums/thread187150.html[/URL]

Member Avatar for madtm
0
256
Member Avatar for Helltech

press win button+r to get the run window type cmd press enter If you want to check the disk in drive D and have Windows fix errors,when console is running type: chkdsk d: /f If it encounters errors, chkdsk pauses and displays messages. Chkdsk finishes by displaying a report that …

Member Avatar for ojhajasbir
0
422
Member Avatar for mrs.r
Member Avatar for killhha
Member Avatar for FlamingClaw
Member Avatar for older3
Member Avatar for jodhy

Any effort? Try to send some of your code,then maybe I can help you.Thank you.

Member Avatar for FlamingClaw
0
159
Member Avatar for Turtle85

[QUOTE=Turtle85;1224089]I really need help in trying to understand what the "dat:table" is in this procedure, and how to translate it to Java. procedure Taylor(var dat: table ; cd: integer; h: real); begin for i:=2 to cd + 1 do begin dat[i,1] := dat[i,1] + (i-1)*h; x := dat[i-1,1]; y := …

Member Avatar for FlamingClaw
0
99
Member Avatar for Lefty_AU

Is this just a procedure? If yes ,then write me how to get value the procedure's arguments,ok?

Member Avatar for FlamingClaw
0
101
Member Avatar for Simon180

[QUOTE=Simon180;1204366]how would i go about spliting a string that is stored in a StringList ? information in string looks like this: Name RanK now i need to split them so i can use a funcation like this data[0] for Name and data[1] for rank can sumone help me please? thanks[/QUOTE] …

Member Avatar for FlamingClaw
0
227
Member Avatar for extemer

[CODE=java] class stringdemo { public static void main(String[] args) { String s1,s2,s3,output; s1 = "hello"; s2 = "hello guys"; s3 = "happy birthday"; output = "s1="+s1+"\ns2="+s2+"\ns3="+s3; System.out.print(output); } /* *By FlamingClaw.2010.04.05.Hungary */ } [/CODE]

Member Avatar for extemer
0
112
Member Avatar for vivitabak

I gathered some method to you ,look at them... [i] Seek (procedure) Moves the current position of a file to a specified component. Declaration procedure Seek(var F; N: Longint); Target Windows, Real, Protected Remarks F is any file variable type except text, and N is an expression of type Longint. …

Member Avatar for FlamingClaw
0
142
Member Avatar for Mobix

Listen this little pascal program :D [CODE=pascal] program write_chars; var main_st:string; function characters(letter:char; times:integer):string; var i_count:integer; s_temp:string; begin s_temp:=''; for i_count:=0 to times do begin s_temp:=s_temp+letter; end; characters:=s_temp; (*right reference!!*) end;(*characters*) begin writeln(characters('@',10)); (*call it within writeln*) main_st:=characters('$',4); (*main_st's value is: $$$$*) end. (*created by FlamingClaw.2010.04.15.Hungary.*) [/CODE]

Member Avatar for Ionelul
0
105
Member Avatar for yozuca

First , error 88 is that the compiler waits for the ( and second I fixed your program. [CODE=pascal] program solution01; const max = 100; var A: array[1..max] of real; function Sort(L, R:integer):real; begin for L:= L to R-1 do begin if A[L]<A[L+1] then begin sort:=A[L+1]; A[L+1]:=A[L]; sort:=A[L]; (*A[L]:=sort; wrong …

Member Avatar for cao
0
212
Member Avatar for Mobix

[QUOTE=Mobix;1183629]Hello, after one delphi session every one of my single floats has been saving into a wordpad as this weird 2.73500000000000E+0003 2.00000000000000E+0002 notation, same goes with printing is there any way to reverse this ?[/QUOTE] here you can find all of the information that you need [URL="http://rvelthuis.de/articles/articles-floats.html"]http://rvelthuis.de/articles/articles-floats.html[/URL]

Member Avatar for FlamingClaw
0
187
Member Avatar for samal123

[QUOTE=samal123;1176346] ... ..... I want using pascal language Please give me quick reply[/QUOTE] Please start a new thread....then maybe I can help you....

Member Avatar for FlamingClaw
0
258
Member Avatar for EAnder

hope this helps.... [URL="http://www.hu.freepascal.org/lists/fpc-pascal/2003-July/005694.html"]http://www.hu.freepascal.org/lists/fpc-pascal/2003-July/005694.html[/URL]

Member Avatar for rapistebe
0
979
Member Avatar for delphiuser1111

Loops? while.. do begin.. end ; or repeat...until....; or for x:=1 to y do begin...end; [CODE=delphi] program Project1; {$APPTYPE CONSOLE} uses SysUtils; var num,i:byte; begin write('Give me a number: '); readln(num); if num<=0 then begin writeln('Give me a number between 1 and 255'); readln; halt; end; for i:=1 to num …

Member Avatar for wylddev
0
87
Member Avatar for chickenmcnugget

[URL="http://www.daniweb.com/code/snippet217321.html"]http://www.daniweb.com/code/snippet217321.html[/URL]

Member Avatar for wylddev
0
258
Member Avatar for fillit

listen carefully :D [code=pascal] program p; (*the main program's global section*) uses crt; var a,b:integer; c:real; (*p2 forward,so can be call from anywhere*) procedure p2(x:integer; var y:integer); forward; (*p1 declaration---------------------*) procedure p1 (x:integer; var y:integer); (*here is the local section of p1 these variables are lives inside p1 and wiped …

Member Avatar for fillit
0
242
Member Avatar for jamesdsouza

when you run this dos program,first ask the user about windows 7.Is it a 32-bit or 64-bit edition.The problem is that this program maybe not runs under 64 bit editions of windows 7.

Member Avatar for jamesdsouza
0
217
Member Avatar for Profyanis

Hi When you create your record in the main program,the field of that record that want to show in the combobox,you should declare as "widestring" 'cause the tcaption = type = widestring(16 bit unicode char set) I created a form,placed on a dbedit1,and a combobox1. Double click on the form …

Member Avatar for FlamingClaw
0
2K
Member Avatar for masq

listen this code,I created a form,put one editbox and a button edit1.text set to 'c:\bp\bin\turbo.exe' and the button's code can be see below [code=delphi] procedure TForm1.Button1Click(Sender: TObject); function getFileName(fileDir : string) : string; var fileName : string; tempNum, i : integer; tempChar : char; tempname:string;(*store the file name only*) begin …

Member Avatar for FlamingClaw
0
117
Member Avatar for sirko

[CODE=pascal] program without_empty_lines; uses crt; var f,temp:text; s,fname,tempname:string; (*text file maker procedure*) procedure create(var x:text; xname:string); begin assign(x,xname); rewrite(x); close(x); end; (*write in some line the main text file*) procedure write_in(var x:text; xname:string); var tempstring:string; e:char; begin e:='*'; assign(x,xname); append(x); tempstring:=''; writeln('Press ''*'' to quit.'); while tempstring <> e do …

Member Avatar for FlamingClaw
0
266
Member Avatar for Forte1292

[CODE=pascal] Program LinkedList; Uses Crt; TYPE DataType = integer; NodePtr = ^ NodeType; NodeType = RECORD Data : DataType; Next : NodePtr; END; VAR Head, Temp : NodePtr; { add at end of list } PROCEDURE AddNode(VAR H : NodePtr; Item : DataType); VAR NewNode, Temp : NodePtr; BEGIN New(NewNode); …

Member Avatar for Forte1292
0
167
Member Avatar for GregPeters

I've seen that thread already solved but I have a question Where is the connection between addnumbers and the sequence? Listen my code it is works too,but I cannot see the connection [CODE=pascal] program untitled; function addnumbers(num1:integer):integer; begin addnumbers:=num1+3; end; procedure sequence(num2:integer); var i:integer; begin for i:=1 to 100 do …

Member Avatar for adraganov
0
1K
Member Avatar for pavel.pavel

I made a solution too [CODE=pascal] Program salaries; uses crt; var F:text; max,salary:word; name,temp_name:string[50];(*if it contains 50 chars then we have to reserve this place in the file*) sex,temp_sex:0..1; line:string; (*one line of the txt file*) begin clrscr; max:=0; assign(F,'salary.txt'); rewrite(f); (*here is the reserved place,'cause we have to know …

Member Avatar for FlamingClaw
0
367
Member Avatar for turbomen

[CODE=delphi] unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Edit1: TEdit; Button1: TButton; Edit2: TEdit; Edit3: TEdit; Edit4: TEdit; Edit5: TEdit; Edit6: TEdit; Label1: TLabel; Edit7: TEdit; Label2: TLabel; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public …

Member Avatar for finalist
0
185
Member Avatar for cplspls

try another writer program,like imgburn,the offical website: [URL="http://www.imgburn.com/index.php?act=download"]www.imgburn.com[/URL]

Member Avatar for cplspls
0
154
Member Avatar for sammer021486

maybe this link helps you : [URL="http://www.sevenforums.com/tutorials/27544-autoplay-enable-disable-autorun.html"]http://www.sevenforums.com/tutorials/27544-autoplay-enable-disable-autorun.html[/URL]

Member Avatar for sammer021486
0
90
Member Avatar for mjlohob

write your modem name into the google,and write next to it that win7 driver "your modem's name driver windows 7"

Member Avatar for mjdodd
0
90

The End.