Hallo,
ich möchte bestimmte Leerzeichen aus einem mir bekannten String entfernen.
z.B.
soll der erste durch den zweiten String ersetzt werden
<i>"DataBase"="C:\\Programme\\ICQ2000\\DB"</i>
<i>"DataBase"=" D:\\Internet\\ICQ2000\\DB"</i>
<b>das mache ich mit folgender Anweisung:</b>
procedure TForm1.Button1Click(Sender: TObject);
var
f: file;
l: longint;
datei, altstring, neustring, s: string;
begin
altstring := edit1.text;
neustring := edit2.text;
datei := edit3.text;
s := altstring;
assignFile(f, datei);
reset(f,1);
for l := 0 to filesize(f)-length(altstring)-1 do
begin
Application.ProcessMessages;
seek(f,l);
blockread(f,altstring[1],length(altstring));
if altstring = s then
begin
seek(f,l);
blockwrite(f,neustring[1],length(neustring));
label1.caption := 'Status: Stelle gefunden und gepatcht!';
end;
Application.ProcessMessages;
end;
closeFile(f);
end;
<b>Wie kann ich aber die Leerzeichen vor " D:\\Internet..." entfernen?</B>
Würde ich den Text ohne Leerzeichen eingeben, hätte ich am Ende von "Internet" noch die zwei letzten Buchstaben von Programme.
Giebt es da eine bessere Methode?
DRINGEND
ich möchte bestimmte Leerzeichen aus einem mir bekannten String entfernen.
z.B.
soll der erste durch den zweiten String ersetzt werden
<i>"DataBase"="C:\\Programme\\ICQ2000\\DB"</i>
<i>"DataBase"=" D:\\Internet\\ICQ2000\\DB"</i>
<b>das mache ich mit folgender Anweisung:</b>
procedure TForm1.Button1Click(Sender: TObject);
var
f: file;
l: longint;
datei, altstring, neustring, s: string;
begin
altstring := edit1.text;
neustring := edit2.text;
datei := edit3.text;
s := altstring;
assignFile(f, datei);
reset(f,1);
for l := 0 to filesize(f)-length(altstring)-1 do
begin
Application.ProcessMessages;
seek(f,l);
blockread(f,altstring[1],length(altstring));
if altstring = s then
begin
seek(f,l);
blockwrite(f,neustring[1],length(neustring));
label1.caption := 'Status: Stelle gefunden und gepatcht!';
end;
Application.ProcessMessages;
end;
closeFile(f);
end;
<b>Wie kann ich aber die Leerzeichen vor " D:\\Internet..." entfernen?</B>
Würde ich den Text ohne Leerzeichen eingeben, hätte ich am Ende von "Internet" noch die zwei letzten Buchstaben von Programme.
Giebt es da eine bessere Methode?
DRINGEND
Comment