String Zeichen einzeln ausgeben

[Davidlocke13]

Delphi-Quellcode:

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

oder

Delphi-Quellcode:

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:

Zitat von DeddyH (Beitrag 1207514)

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:

Zitat von Sir Rufo (Beitrag 1207521)

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

Delphi-Quellcode:

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

[Sir Rufo]

Zitat:

Zitat von Davidlocke13 (Beitrag 1207525)

Die Ausrichtung der Edits und das sollte eher so ;-)

Delphi-Quellcode:

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