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: pol5@tenbit.pl

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
xrocky@o2.pl
GG: 3615957

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