String Zeichen einzeln ausgeben

[Davidlocke13]

for i:= 1 to length(EditText.text) do oder

for i:= 0 to length(EditText.text)-1 do kommt das nicht aufs gleiche raus ?!

[DeddyH]

Nein, Strings beginnen bei Index 1, dynamische Arrays bei Index 0.

[Davidlocke13]

Zitat von DeddyH:

Nein, Strings beginnen bei Index 1, dynamische Arrays bei Index 0.

Ok gut zu wissen
Das Ergebnis schaut aber bei mir gleich aus, ist mir aufgefallen !

[DeddyH]

Dann schalt mal die Bereichsprüfung ein. Das erste Edit im Array wird überhaupt nicht angesprochen, dafür aber eins, das außerhalb des Arrays liegt.

[Davidlocke13]

Ok ich habe es jetzt gesehen

[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;

[Davidlocke13]

Zitat von Sir Rufo:

Warum hört eigentlich niemand auf Bjoerk?

War gerade dabei das auszuprobieren

Übrigens es Funktioniert wunderbar !

Danke

[Sir Rufo]

Was bezweckst du eigentlich mit dieser Zeile:

Delphi-Quellcode:

...
EditArray[i].Left:= 16 + ((EditArray[i].Left + 32) * i);
...

Nimm die aktuell linke Position des neu erzeugten Controls (wo immer die auch liegen mag) und errechne aus diesem die neue linke Position???
Du bist dir sicher, dass du damit immer ein reproduzierbares und vorhersehbares Ergebnis bekommst?

[Davidlocke13]

Die Ausrichtung der Edits und das sollte eher so

EditArray[i].Left:= 50 +(32* i);

[Sir Rufo]

Zitat von Davidlocke13:

Die Ausrichtung der Edits und das sollte eher so

EditArray[i].Left:= 50 +(32* i);

Ok, aber dann würde ich auch eher das vorschlagen

Delphi-Quellcode:

...
EditArray[i].Width := 30;
EditArray[i].Left := 50 + ( EditArray[i].Width + 2 ) * i;
...