String Zeichen einzeln ausgeben

[Sir Rufo]

Warum hört eigentlich niemand auf Bjoerk?

Delphi-Quellcode:

var
  i: Integer;
begin
  ...
  SetLength(EditArray, i); // Preisfrage: Welchen Wert hat i zu diesem Zeitpunkt?
  ...
  for i:= 1 to length(EditText.text) do
    begin
      ...
    end;
end;

Mein Vorschlag daher

Delphi-Quellcode:

procedure TForm2.BtnStartClick(Sender: TObject);
var
  i: Integer;
begin
  EditText.Visible := false;
  BtnStart.Visible := false;
  BtnClear.Visible := false;

  Wort := EditText.Text;

  SetLength( EditArray, Length( Wort ) );

  for i:= 0 to High( EditArray ) do
  begin
    EditArray[i]:= TEdit.Create(Self);
    EditArray[i].Parent := Self;
    EditArray[i].Left:= 16 + ((EditArray[i].Left + 32) * i);
    EditArray[i].Top:= 380;
    EditArray[i].Width:= 30;
    EditArray[i].Font.Name := 'Comic Sans MS';
    EditArray[i].Font.Size := 14;
    EditArray[i].MaxLength := 1;
    EditArray[i].Alignment := taCenter;

    EditArray[i].Text := Wort[i + 1];
  end;
end;