// < Görkem SARI >
// < notilus_hack@hotmail.com >
Var
Dosya: TextFile;
Satir: String;
begin
AssignFile(Dosya, 'C:\help.txt');
Reset(Dosya);
While Not Eof(Dosya) Do
Begin
Readln(Dosya, Satir);
Memo1.Lines.Add(Satir);
End;
end;
{
Herkese iyi çalışmalar...
Görkem SARI
notilus_hack@hotmail.com
}