Möchte Buchstaben einzelnd anzeigen

[EMS]

was ist denn der debugger?

ich sehe das irgendwie das string2 sich ja immer wiederholt und nicht bei meinem letzten wert bleibt aber wenn ich das vor die schleife stelle gehts auch nicht?

[Popov]

In Delphi 7 sieht es so aus: Menü 'Ansicht' > 'Desktop Fenster'

Dort hast du zwei für dich interessante Menüpunkte, die du übrigens auch über Tastenkombinationen erreichst:

'Lokale Variablen' auch über Strg+Alt+L zu öffnen
'Überwachte Ausdrücke' auch über Strg+Alt+W zu öffnen

Am schnellsten und einfachsten für dich sind 'Lokale Variablen'. Sie zeigen alle aktuellen Variablen mit Inhalt (soweit möglich) der aktuellen Prozedur/Funktion/usw. Trotz dessen, dass sie lokal sind, existieren nicht alle Variablen zu jeder Zeit. Objekte müssen erst erzeugt werden, wird eine Variable nicht mehr benötigt, wird sie verworfen, usw. Also nicht wundern wenn nicht zu jeder Zeit ein Ergebnis angezeigt wird.

Etwas komplexer, aber auch mächtiger ist 'Überwachte Ausdrücke'. Sie Zeigt alle Variablen an, soweit möglich und explizit abgefragt.

[EMS]

ja mit strg alt und L habe ich nun ein leeres Fenster?
Wie soll mir das nun weiter helfen?

[Popov]

Es wird erst "voll" wenn das Programm gestartet ist und du dich in der entsprechenden Prozedur befindest.

Klicke mit der Maus in die entsprechende Zeile und setzte mit F5 einen Haltepunkt. Starte das Programm. Es wird an dem Haltepunkt anhalten und dir das Fenster mit den lokalen Variablen anzeigen. Und dieses Mal werden die Variablen da sein.

Bei der Gelegenheit - wenn du die Variable im Debug-Fenster doppelklickst (erreichbar auch über Kontextmenü) öffnet sich ein kleiner Debug-Inspektor. In dem kannst du zur Laufzeit den Wert der Variable ändern/anpassen.

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