Opening text files

[ivoestg]

Hi,

I need to open a text file, read the first line of it, and put its charachters in a string variable. how can i do this? thanks...

I'm in ivoestg@yahoo.com

 

[sggaunt]

The simplist way is to use a memo
e.g

var astring: string;
begin
memo1.lines.loadfromfile('your filename here');
astring := memo1.lines[0];
end;

steve

 

[NordicSystems]

An alternative to using a memo is to use a TextFile variable. The following function accepts the file name as a parameter and returns the first line of the file as a string:

function ReadFirstLine(FileName: TFileName): String;
var
F: TextFile;
begin
AssignFile(F, FileName);
Reset(F);
Readln(F, Result);
CloseFile(F);
end;

Hope this helps.
Dave


nordicsys@aol.com