belthazor

[CODE] var input,output : text ; loc1,loc2,x : string ; begin writeln('enter location and file name of input file : ');readln(loc1); assign(input,loc1); reset(input); writeln('enter location and file name for output file : '); readln(loc2); assign(output,loc2); rewrite(output); while not eof(input) do begin readln(input,x); writeln(output,x); end; close(input); close(output); readln end. [/CODE]

may be this will help .. [CODE] uses sysutils ; var a,i : integer ; b,r : text ; fname,g:string ; begin assign (b,'numoffiles.txt'); reset(b); read(b,a); for i := 1 to a do begin g := inttostr(i); fname := 'file_'+ g ; assign(r,fname); reset (r); {blah blah blah ;} close(r); …

not sure wither this applies to Delphi or not , but in pascal we usually use this command to print the float in normal notation write(y:x:z); where y represents the float x represents the number of digits for integer part of the float z represents the number of digits for …

please help me.. there anyone know how to reverse strings??? i really don't have idea for this.. please helps... a faster way : begin