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]