Position des Zeilenumbruchs in Textfile feststellen

[WEBSTER]

Salute,

danke für die SW.

Mit dem POS habe ich es schon probiert. Er findet aber nichts in der Zeile.

Ich habe schon folgendes probiert..:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  Str_Zeile: string;
  Str_Tmp: Char;
  f: textFile;

begin
  AssignFile(f, 'F:\021204_freight.rel');
  reset(f);

  Readln(f, Str_Zeile);  ->  Mit Read(f, Str_Zeile); funktioniert es auch nicht.


//  AdjustLineBreaks()

 // ShowMessage(IntToStr(Length(Str_Zeile)));

//  Str_Tmp := Copy(Str_Zeile, 89, 1)[1];

  ShowMessage(IntToStr(pos(#13#10,Str_Zeile)));

//  ShowMessage(Copy(Str_Zeile, 89, 1)+'/'+IntToStr(Ord(Str_Tmp)));

//  ShowMessage('CODE:'+IntToStr(Byte(Str_Zeile[Length(Str_Zeile)])));

 // ShowMessage(IntToStr(Ord(Str_Zeile[Length(Str_Zeile)])));


  closeFile(f);

end;

THX
WEBSTER

[edit=Sharky]Delphi-Tags gesetzt. Mfg, Sharky[/edit]