replace

Memo1.SelText := 'this text';  ??

Følger lige med

Hvis du vil erstatte hele teksten kan du f. eks. bruge
Memo1.Text = 'Ny text til memoet';

og hvis du vil indsætte en ny linie
Memo1.Lines.Add('en ny linie er tilføjet');

jeg vil kun fx hvis den finder bogstavet A så erstatter den det med B eller hvis den finder HEJ så erstatter den det med DAV

Søg under replace i hjælpe filen, der er et eksempel på hvordan koden til en TReplaceDialog skal se ud.

Jeg kan bare ikke finde noget?

Hmm en replacedialog er heller ikke nok, jeg skal have en masse ord erstattet på een gang.

Prøv dette

procedure TForm1.Button1Click(Sender: TObject);
var
  st : string;
  tmp : integer;
begin
  st := memo1.Lines.Text;
  while pos('a',st) > 0 do
  begin
    tmp := pos('a',st);
    delete(st,tmp,1);
    insert('Test',st,tmp);
  end;
  memo1.lines.Text := st;
end;

har du prøvet med stringreplace?

Memo1.text := stringreplace(Memo1.text, 'DetSomSkalErstates', 'Nyt Text', [RfReplaceAll]);

Jeg troede ikke der fandtes stringreplace lol!

Hvordan gør man sådan så det er ligemeget om det er store bogstaver eller små bogstaver?

Memo1.text := stringreplace(Memo1.text, 'DetSomSkalErstates', 'Nyt Text', [RfReplaceAll]+[rfIgnoreCase]);

hrrr..

Memo1.text := stringreplace(Memo1.text, 'DetSomSkalErstates', 'Nyt Text', [RfReplaceAll, rfIgnoreCase]);

tak!