Buchstaben in Text suchen & ersetzen

[Sir Rufo]

ok, dann machen wir das ganze nochmal etwas dynamischer

try this:

Delphi-Quellcode:

Text2 := mOriginal.Text; 
  for i := 1 to Length( Text2 ) do  // alle Positionen des Textes durchlaufen
    for r := 0 to StringGrid1.RowCount - 1 do  // mit allen Zeilen des StringGrids vergleichen
      if mOriginal.Text[ i ] = StringGrid1.Cells[ 0 , r ][ 1 ] then  
        Text2[ i ] := StringGrid1.Cells[ 3, r ][ 1 ]; 
mOriginal.text := Text2;