Wiedereinstieg in Delphi

[patti]

Zitat von Dasch:

Die „Spielerei“ möchte ich deshalb programmieren, weil sie mir bei einem ... Hobby, wenn man so will, Zeit ersparen würde. Der Gewinn wäre aber die tage-, wenn nicht gar wochenlange Quälerei durch entsprechende Handbücher nicht wirklich wert.

Wenn es dir wirklich nur darum geht, ein kleines Programm zu haben, das dir einbisschen Zeit erspart, und du wirklich kein Interesse daran hast, deine Delphi-Kenntnisse zu vertiefen, dann findet sich hier ja vielleicht jemand, der dir schnell so ein Programm schreibt (@himitsu: Wenn die Anforderungen an das Programm tatsächlich nur so gering sind, wie im Ausgangspost beschrieben, dann ist das Jobforum wohl etwas übertrieben ). Vielleicht beschreibst du mal kurz etwas genauer, was das Programm können soll...

mfg

[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