Jak wczytać z *.txt linię po lini

0

Jestem początkującym programistą więc nie wiem jak wczytać z *.txt linię po lini. Proszę pomóżcie.

Wyślij mi e-mail'a z odpowiedzią. PLIS

Mój e-mail: [email protected]

Nara

0

var
TF : TextFile;
S : String;
begin
AssignFile(TF, 'C:\Moje dokumenty\plik.txt');
Reset(TF); otwarcie pliku
try
while not Eof(TF) do
begin
Readln(TF, S);
odczytanie pliku
Memo1.Lines.Add(S); dodanie zmiennej do komponentu
end;
finally
CloseFile(TF);
zamkniecie pliku
end;
end;

Trzeba bylo czytac artykul o plikach w Delphi...--Pozdrawiam!
Adam Boduch
www.4programmers.net

0

Jeśli chcesz wczytac cały plik to:
Memo1.LoadFromFile('C:\Plik.txt)
{browar} --Pozdrawiam!

RockY

Delphi 5
[email protected]
GG: 3615957

1 użytkowników online, w tym zalogowanych: 0, gości: 1, botów: 0