Two types of record in a text file

[Guest_imported]

I need to read a text file with the following content:

e 1 100m swimming
e 2 400m swimming
c 1 1 62000 Albert Chan
c 1 2 71000 Mary Rey
c 2 1 54000 David Lung

Here are two types of record, one is for an event (the first two lines) and the other is for competitor (the last three lines). e and c at the beginning is the indicator.

How can I read the record from the file line by line and then determine the type of it by the indicator. And then according to its type, read the fields into different variable?

I would appreciate any comment or suggestion, Thanks a lot.

Dante
dantetang@hkem.com

 

[Otto]

Hi!

Here is an example:

var
F: Text;
S: String;
begin
AssignFile(F, 'FILENAME.TXT');
{$I-}
Reset(F);
{$I+}
if IOResult=0 then begin
while not Eof(F) do begin
ReadLn(F, S);
if S[1]='c' then begin
{ handle the "competitor" line }
end
else begin
{ handle the "event" line }
end;
end;
CloseFile(F);
end;
end;

Good luck. Bye, Otto.