Delphi-Quellcode:
type
TForm1 = class(TForm)
Button1: TButton;
Memo1 : TMemo;
procedure Button1Click(Sender: TObject);
private
{ Private-Deklarationen }
public
{ Public-Deklarationen }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var sl: TStringList;
zeilennr: integer;
i:Byte;
begin
sl:=TStringList.Create; //Objekt erzeugen
try
sl.LoadFromFile('c:\...\text.txt'); //Datei in Stringliste laden
//ShowMessage(sl.Strings[21]); //Meldung ausgeben
for i:=21 to 58 do
Memo1.add(sl[i]);
finally
sl.free; //Objekt wieder freigeben
end;
end;
end.
Sollte in etwa so gehen. Du brauchst dazu noch ein TMemo.
Grüße
Klaus