Ergebnis der Suchanfrage

• Forum: GUI-Design mit VCL / FireMonkey / Common Controls

  Re: Text ersetzen

   
    by DeddyH, 27. Jul 2007
  Und wenn er das gar nicht will? Wenn ich das richtig verstanden habe, will er eine Datei laden, den Text ersetzen und dann unter anderem Namen abspeichern. Die Memos dienen da wohl als eine Art Preview. :)
• Forum: GUI-Design mit VCL / FireMonkey / Common Controls

  Re: Text ersetzen

   
    by DeddyH, 27. Jul 2007
  procedure TForm1.Button2Click(Sender: TObject);
  var i: integer;
  begin
  Memo2.Clear;
  Memo2.Lines.BeginUpdate;
  for i := 0 to Memo1.Lines.Count - 1 do
  if Pos('rfu',AnsiLowerCase(Memo1.Lines)) = 1 then
  Memo2.Lines.Add(StringReplace(Memo1.Lines,'rfu','RFU_CON',))
  else
  Memo2.Lines.Add(Memo1.Lines);
• Forum: GUI-Design mit VCL / FireMonkey / Common Controls

  Re: Text ersetzen

   
    by DeddyH, 27. Jul 2007
  Hallo, anstatt das StringReplace auf den kompletten Text loszulassen, könntest Du das Memo zeilenweise durchgehen (for i := 0 to Memo.Lines.Count - 1), schauen, ob der gesuchte Text am Zeilenanfang steht (if Pos(Suchtext, Memo.Lines = 1) und dann ggf. mit StringReplace(ohne rfReplaceAll) den Text ersetzen.