Zitat von
Sharky:
Hai Freecer,
ersteinmal herzlichen Willkomen im Delphi-Forum. So, jetzt zu deinem Problem.
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var
myStringlist: TStringList;
ndx: Integer;
tmp_string : String;
begin
myStringlist := TStringList.Create;
try
myStringlist.LoadFromFile('c:\layout.txt');
for ndx := 0 to myStringlist.Count-1 do
begin
tmp_string := myStringlist.Strings[ndx];
tmp_string := StringReplace(tmp_string,'%1',Edit1.Text, []);
myStringlist.Strings[ndx] := tmp_string;
end;
myStringlist.SaveToFile('c:\ausgabe.txt');
finally
myStringlist.Free;
end;
end;
Sollte eigentlich gehen. Bei Fragen -> Frage.
Genau das!
--> werde es mal versuchen vielen dank!
DD
mfg.