Buchstaben in Text suchen & ersetzen

[Sir Rufo]

Delphi-Quellcode:

for i := 1 to L do // 1 bis Länge des Textes 
  begin
    if mOriginal.text[ i ] = stringgrid1.Cells[0,0] then  Text2[ i ] := stringgrid1.Cells[3,0];
  end;
// Das Ergebnis, steht jetzt in Text2 und soll wieder zurück in das Memofeld
mOriginal.text := Text2;

Ein Computer macht das, was man ihm sagt, unter keinen Umständen etwas anderes.

axo, da du ja vielleicht mehr als nur den Wert aus der Zelle [0,0] überprüfen willst:

Delphi-Quellcode:

// Wir speichern ein Kopie
Text2 := mOriginal.Text;
for i := 1 to Length( Text2 ) do // 1 bis Länge des Textes 
  for r := 0 to 25 do
    begin
      if mOriginal.Text[ i ] = StringGrid1.Cells[ 0 , r ] then  Text2[ i ] := StringGrid1.Cells[ 3, r ];
    end;
// Das Ergebnis, steht jetzt in Text2 und soll wieder zurück in das Memofeld
mOriginal.Text := Text2;