Wiedereinstieg in Delphi

[Klaus01]

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