Forum: Object-Pascal / Delphi-Language
Delphi
by himitsu,
6. Sep 2004
Weil, wenn das unterschiedlich lang ist, dann müßte man ja noch einen Übergang dazwischen finden - z.B.:
Var TF: TextFile;
S: String;
P1, P2: Integer;
AssignFile(TF, FileName);
Reset(TF);
While not EoF(TF) do Begin
ReadLn(TF, S);
(***** extrahieren *****)
Forum: Object-Pascal / Delphi-Language
Delphi
by himitsu,
6. Sep 2004
Dieses "A00 --- " ist das immer gleich lang, oder ist es sogar immer gleich?
Forum: Object-Pascal / Delphi-Language
Delphi
by himitsu,
6. Sep 2004
also dann solltest du uns wohl erstmal eine CFG zeigen (deren Aufbau kann ja total unterschiedlch sein)
auslesen könnte z.B. so gehn:
Var TF: TextFile;
S: String;
AssignFile(TF, FileName);
Reset(TF);
While not EoF(TF) do Begin
ReadLn(TF, S);
Forum: Object-Pascal / Delphi-Language
Delphi
by himitsu,
6. Sep 2004
wie willst du eigentlich die Datei einlesen - es gibt ja tausende Möglichkeiten
1: mir ReadLn einlesen (AssignFile, Reset, EoF, ReadLn ...)
2: mit StringList einlesen (TStringlist)
...
und mit CreateDir erstellen