Fehlerhafte Textdatei

[winkelmesser]

Bevor ich mein Problem schildere möchte ich allen Usern ein großes Lob aussprechen

Zu meinem Problem
Ich bekomme Textdateien die Unterschiedlich groß sind und einige Zeilen haben am Zeilenanfang dieses Zeichen  ab dieser Position wird die Datei nicht weiter ausgelesen.

Auszug aus der Datei
%_N_16099_11_D155_E1_MPF
;$PATH=/_N_WKS_DIR/_N_EASYSTEP_WPD
G0 G90 Z1540
M5 M35
M30
%_N_16099_11_D181_E1_MPF
;$PATH=/_N_WKS_DIR/_N_EASYSTEP_WPD
M4 M24
E_T(18)


Die Function sieht so aus

Delphi-Quellcode:

function TextRep(text : String): integer;
var TextLesen : array[1..10000] of string;
var i, z : integer;
begin
  z:=0;
  AssignFile(f,form1.FileListBox1.FileName);
  reset(f);
  while not eof(f) do
    begin
      Readln(f,TextLesen[z]);
      inc (z);
    end;
  closefile(f);
  AssignFile(f,'C:\test.MPF');
  ReWrite(f);
  for i := 0 to z do
  begin
    writeLn(f,TextLesen[i]);
  end;
  closefile(f);
end;

wie kann ich es anstellen das diese Zeichen gelöscht werden und bis zum Dateiende gelesen wird.

Winkelmesser

[edit=SirThornberry]Delphi-Tags ergänzt - Mfg, SirThornberry[/edit]