Hey
(Ist der Fehler immer noch drin mit Char + String, aber immerhin schon etwas verbessert)
Delphi-Quellcode:
Text2 := mOriginal.Text;
for r := 0 to 25 do
begin
if mOriginal.Text[ i ] = StringGrid1.Cells[ 0 , r ] then Text2[ i ] := StringGrid1.Cells[ 3, r ];
end;
mOriginal.text := Text2;
Meine Tabelle ist wie folgt aufgebaut:
Spalte eins enthält die Buchstaben von A - Z
Spalte zweit enthält das Vorkommen in Prozent (Wie oft taucht Buchstabe A...Z in dem Memo Feld auf)
Spalte 3 enthält die Buchstaben von A-Z, jedoch geordnet nach Häufigkeit in der deutschen Sprache
(Spalte 4 schließlich die Häufigkeit in der D-Sprache in Prozent)
Spalte 1+2 ordnen sich automatisch nach der Häufigkeit, Häufigster Buchstabe im Text: Ganz oben
Jetzt will ich den Häufigsten Buchstaben im Text mit dem Häufigsten der Deutschen Sprache ersetzen, den zweit Häufigsten mit dem ... usw.
Pascall
PS: An dem Problem beiße ich mir schon seit Tagen die Zähne aus