in text datei bestimmte dinge ersetzen....

[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.