Du kannst zwischen ReadLn und Lines.Add via Delete die ersten Zeichen aus deinem S entfernen oder via Copy die gewünschten Zeichen aus S rauskopieren.
Oder TStrinList:
- die ganze Datei einlesen
- via For-Schleife über die Zeilen laufen und via
SL[i] := Copy(SL[i], x {, Length(SL[i])});
den Anfang entfernen
- [edit] seh grade noch das
until z = 40;
... unnötige Zeilen kann man hier auch noch rauslöschen. (
while SL.Count > 40 do SL.Delete(40);
)
- und dann
txt_eingabe.Text := SL.Text;
PS:
Zitat:
else
danach fehlt Begin und End
Aber das ist eh nutzlos, da der OpenDialog immer einen (oder mehrere) Dateinamen liefert.
Du kannst eventuell aber in den Dialog-Optionen die Prüfung auf "Datei existiert" aktivieren.
Denn standardmäßig kann man auch einen nicht-vorhandenen Dateinamen angeben, aber auch kann man sich die manuell
FileExistsPrüfung, da beim Laden/Öffnen der Datei sowieso eine Fehlermeldung kommt.
Wird der Dialog nur hierfür verwendet?
Dann brauchst du
OpenDialog1.Filter
und Co. nicht im Code zu setzen, sondern mach das einfach schon im
OI.