Möchte Buchstaben einzelnd anzeigen

[EMS]

mhh hab das noch einmal probiert aber es klappt nicht.
Ich hab auch jetzt schon 20000 mal das programm umgebaut und es klappt nach wie vor nicht...

[Popov]

Was klappt nicht - das mit dem Debuger oder Code?

[EMS]

das mit dem debuggen
aber den code funktioniert nun

Delphi-Quellcode:

var
   string1,string2,stringneu:string;
   laenge,laengeneu,anzahl_Zeichen1,anfangsposition1,
   anfangsposition2,anzahl_zeichen2,index1,index2
     :integer;
begin
    string1:=edit4.text;
    laenge:=LENGTH(string1);

    For index2:=  1 to laenge do
       begin
       string2:=edit4.text;
       index1:=1;
       anfangsposition1:=index1;
       anzahl_Zeichen1:=index2-1;
       delete(string2,anfangsposition1,anzahl_Zeichen1);
       laengeneu:=laenge-index2+1;
       stringneu:=string2;
       anfangsposition2:=2;
       anzahl_Zeichen2:=laengeneu-1;
       delete(stringneu,anfangsposition2,anzahl_Zeichen2);
       showmessage(stringneu);
    end;
end;

[delnu]

Oh, das sieht aber an einigen Stellen schlimm aus :

Delphi-Quellcode:

string2:=edit4.text;
...
stringneu:=string2;
...
showmessage(stringneu);

Wie DeddyH schon richtig schrieb, befinden sich Zeilen innerhalb der Schleife, die dort nicht hingehören. Nur mal als Denkanstoß : Wieso werden denn "string2" und "index1" immer wieder neu innerhalb der Schleife zugewiesen ?

Aber mal ernsthaft - ich habe das jetzt nicht ausprobieren wollen : Funktionert diese Schleife überhaupt wie gewünscht ? Was DeddyH schrieb, ist kurz, präzise, übersichtlich und korrekt. Der neue Ansatz von Dir ist unübersichtlich und wirkt, als könne er gar nicht funktionieren.