in text datei bestimmte dinge ersetzen....

[Freecer]

Zitat:

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! :DDD

mfg.

[Freecer]

OK geht alles SUPER!

Nur ich hab jetzt auch noch n memo feld und das muckt nun herrum....

Delphi-Quellcode:

    tmp_string := StringReplace(tmp_string,'%rev',Memo1.Lines, []);

was stimmt da nicht?

BZW. wieso geht das nicht hat da jemand ne antwort parat?? Hab schon herrum getestet aber es will einfach nicht....

[Treffnix]

Memo1.Lines ist kein String sondern ein TStrings-Objekt

Versuchs mit Memo1.Lines.Text für den gesamten Text oder mit Memo1.Lines[integer] für eine bestimmte Zeile

[Sharky]

Hai Freecer,

was genau soll denn aus dem Memofeld genommen werden? Eine Zeile, der gesamte Text, nur der markierte Text?

[Freecer]

Der ganze text, SUPER BIG THX! Es funktioniert einwandfrei dieses board gefällt mir! :D

--> Bin ab jetzt stamm besucher bei euch :)

Find ich echt klass!

THX nochmal! :hello:

[Daniel B]

Zitat:

Zitat von Sharky

ersteinmal herzlichen Willkomen im Delphi-Forum.

*pfui* Ordentlich auf die Flosse hau und für 6 Stunden mit der anderen Flosse an Schiffsrad bind! :tongue:

[Sharky]

Zitat:

Zitat von Daniel B

Zitat:

Zitat von Sharky

ersteinmal herzlichen Willkomen im Delphi-Forum.

*pfui* Ordentlich auf die Flosse hau und für 6 Stunden mit der anderen Flosse an Schiffsrad bind! :tongue:

:oops: :oops:

Ich werde 20 Delphi-Praxis Gebete sprechen und spende freiwillig 100 Bit in die Kasse.

[Treffnix]

Zitat:

Ich werde 20 Delphi-Praxis Gebete sprechen und spende freiwillig 100 Bit in die Kasse.

100 Bit? Bin dabei! :cheers: