Hallo,
ich habe, zum ersten mal seit Jahren, mich wieder mit Delphi beschäftigt. Ich möchte aus einer Textdatei Information auslesen und in die Memo packen. Dabei ist es wichtig, dass jede Zeile nicht gleich ab Anfang ausgelesen wird sondern ab den x-ten zeichen. Es spielt keine Rolle, welcher Zeichen das ist, sondern nur die nummerierung.
Ich bin soweit, dass ich eine bestimmte Anzahl der Zeilen auslesen kann und in ein Memo packen kann. Bleibt nur das Einlesen ab nen Bestimmten Punkt.In der repeat-Schleife muss bei readln noch eine Bedienung rein, ich weiß aber nicht welche. Habe schon ziemlich viel durchgeguckt und keine Hilfe gefunden. Vielen Dank im Vorraus.
Ich arbeite mit Delphi 2006.
Delphi-Quellcode:
procedure TForm1.meldung_einClick(Sender: TObject);
var z: integer; //Laufvariable
s: string;
datei: TextFile;
begin
OpenDialog1.Filter := 'text files(*.txt)|*.txt;';//Nur .txt-Dateien anzeigen
OpenDialog1.FilterIndex := 1;
If OpenDialog1.Execute then
If OpenDialog1.FileName = '' then
MessageDlg('Keine Datei Ausgewählt!', mtWarning, [mbOK], 0)
else
AssignFile(datei, OpenDialog1.FileName);//Vorbereitung zur Auslesung
reset(datei);
z := 0;
txt_eingabe.clear;
repeat //benötigte Zeilen auslesen
inc(z);
readln(datei, s);
txt_eingabe.Lines.Add(s);
until z = 40;
CloseFile(datei);
end;
MfG Konstantin