Reading from a file line by line.

[groog]

How can I read from a file line by line and add it to a string array. I've got something that looks like this-


x, y, i, k: integer;
fileNum, fileSize: integer;
fileString: String;
urlsArray: Array of String;

procedure GetUrls;
begin
fileNum := OpenFile('url.txt', true);
fileSize := FileSize(fileNum);
ReadFileString(fileNum, fileString, fileSize);
end;

but I get this error:


[Error] (12:23): Type mismatch at line 11
Compiling failed.

which would be this line


fileSize := FileSize(fileNum);

But this isn't just a "what's wrong with this code" question. Is this the right way to do it? How should I do it?

[Sex]

function GetURLs(Filename : string) : TStringArray;
var
FileNum, h, i : integer;
s : string;
begin
FileNum := OpenFile(Filename, true);
ReadFileString(FileNum, s, FileSize(FileNum));
CloseFile(FileNum);
result := Explode(chr(10), s);
h := high(result);
for i := 0 to h do
Writeln(result[i]);
end;

begin
GetURLs('C:\url.txt');
end.

[ZephyrsFury]

ReadFileString gives you a single string with the entire contents of the file.


function GetURLs(Filename : string) : TStringArray;
var
FileNum, h, i : integer;
s : string;
begin
FileNum := OpenFile(Filename, true);
ReadFileString(FileNum, s, FileSize(FileNum));
CloseFile(FileNum);
result := Explode(chr(10), s);
h := high(result);
for i := 0 to h do
Writeln(result[i]);
end;

begin
GetURLs('C:\url.txt');
end.

In other words this function Explodes a string into an array of string by separating the string every time chr(10) or the New Line Feed character is found.

If chr(10) doesn't work try chr(13) - I can't remember which one ends up working.

[i luffs yeww]

chr(10)+chr(13) should solve all problems. :)

[Zyt3x]

chr(10)+chr(13) should solve all problems. :)Only in windows

[i luffs yeww]

I'll assume he's using Windows.. :p

[groog]

This still give me a type mismatch error though. It's this right here-

FileSize(FileNum)

[Wizzup?]

Pascal is case insensitive.

[Sex]

Your variable name is the same as the function name.

[anonymity]

Keeping semi on subject * Not to hijack...

How does one:
- WriteFileString(fileName, 'text and what not');
enter to a new line?

- WriteFileString(fileName, 'text and what not'+chr(10)+chr(13));
Does not work.

[Sex]

Use AppendFile.

Edit:
var
FileNum : integer;
begin
FileNum := AppendFile('C:\blahblah.txt');
WriteFileString(FileNum, Chr(13) + chr(10) + 'new line');
CloseFile(FileNum);
end. etc.