String Zeichen einzeln ausgeben

[Davidlocke13]

Mir geht es nicht darum die Edits zur Laufzeit zu erstelle das hatten wir ja schon im anderen Beitrag abgehackt ! ich möchte einzel die Buchstaben aus dem String lesen und an die Edits übergeben !

[Sir Rufo]

Zitat von Davidlocke13:

Mir geht es nicht darum die Edits zur Laufzeit zu erstelle das hatten wir ja schon im anderen Beitrag abgehackt ! ich möchte einzel die Buchstaben aus dem String lesen und an die Edits übergeben !

Delphi-Quellcode:

var
  LText : string;
  LIdx : Integer;
begin
  LText := 'Ein Toller Text';
  for LIdx := 1 to Length( LText ) do
  begin
    AEdit.Text := Text[LIdx]; // wie auch immer du an die Edit-Felder kommst
  end;
end;

@Natcree

Die ganz grobe Richtung stimmte aber

[Davidlocke13]

SO hatte da noch ne kleine Pause gemacht da ich noch an einem anderen Projekt arbeite

Delphi-Quellcode:

procedure TForm2.BtnStartClick(Sender: TObject);
var
i: Integer;
begin
  EditText.Visible := false;
  BtnStart.Visible := false;
  BtnClear.Visible := false;
  SetLength(EditArray, i);
  Wort := EditText.Text;
for i:= 1 to length(EditText.text) 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;
  end;
end;

So erstelle ich meine Edits im Moment

[Bjoerk]

Hallo David,

du benutzt die Variabel I ohne vorher definiert zu haben und deine Schleife sollte wohl auch von Null bis Length(EditArray) - 1 laufen.

Gruß
Thomas

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