Zitat:
Auslesen des Inhalts eines Edit-Feldes
• Erstellen eines arrays oder dergleichen mit dem Inhalt des Edit-Feldes und Zerlegung des Inhalts in seine einzelnen Zeichen
• Hinzufügen von weiteren Zeichen zu jedem einzelnen Zeichen
• Ausgabe der veränderten Zeichensätze in der gleichen Reihenfolge in ein Memo-Feld
Delphi-Quellcode:
function tuwas(input: AnsiString):AnsiString;
var
i: Byte;
begin
length(result,length(input)*2);
for i:=1 to lenght(input) do
begin
result[(i*2)-1]:=input[i];
result[i*2] := char(randomrange(32,127));
end;
end;
Aufruf:
Memo1.lines.add(tuwas(edit1.text));
Grüße
Klaus