Tjek sidste linie af fil

Tags:    delphi

User
Bruger #812 @ 13.05.02 18:39
Hvordan kan jeg, på en nem måde, finde ud af, hvilket tal (0-255) der står i sidste linie af en *.txt fil, og så udføre en individuel handling, alt efter hvilket tal det er.

--
Thomas



1 svar postet i denne tråd vises herunder
1 indlæg har modtaget i alt 3 karma
Sorter efter stemmer Sorter efter dato
User
Bruger #75 @ 13.05.02 18:52
Drop en button og en memo (evt. skjult) på din form.

<pre>
procedure TForm1.Button1Click(Sender: TObject);
begin
Memo1.Lines.LoadFromFile('C:/Din tekstfil.txt');

if StrToInt(Memo1.Lines[Memo1.Lines.Count-1]) = 20 then
begin

showmessage('tallet er tyve');

end;

end;
</pre>

Hvis det sidste tal i tekstfilen er tyve, bliver der vist en besked.

Med venlig hilsen

Mikkel Bøg Clemmensen
mt.clemmensen@vip.cybercity.dk




t