Forum: Sonstige Fragen zu Delphi
Delphi
by PhöniX,
10. Feb 2004
habs nun schon..egal..thema geklärt
Forum: Sonstige Fragen zu Delphi
Delphi
by PhöniX,
10. Feb 2004
procedure TMain.OKClick(Sender: TObject);
label beginning;
begin
....
....
....
beginning://<_____ ...hier
repeat// \
...// |
goto beginning;//_/ Von hier nach...
Forum: Sonstige Fragen zu Delphi
Delphi
by PhöniX,
10. Feb 2004
irgend wie funktioniert das nich mit dem goto...
jannst du mir mal die genauen befehle sagen?
Forum: Sonstige Fragen zu Delphi
Delphi
by PhöniX,
10. Feb 2004
repeat
maxiEng := FormVocsEng.TableEng.RecordCount;
inc(maxiEngCount);
if maxiEngCount = maxiEng then
if MessageDlg('Anzahl der abzufragenden Vokabeln nicht erreicht,'+#10#13+
'weil nicht genügend Vokabeln verfügbar sind.',mtInformation,,0) = mrOK then
begin
//kommt noch
end;
FormVocsEng.TableEng.first;
Forum: Sonstige Fragen zu Delphi
Delphi
by PhöniX,
10. Feb 2004
und wie macht manndas wenns so is:?
repeat
...
repeat
...
//von hier zum ersten repeat
until...
until...
Forum: Sonstige Fragen zu Delphi
Delphi
by PhöniX,
10. Feb 2004
Hi,
Einfch Frage:
Wie kann man in einer repeatschleife zum anfang der schleife springen, wenn man nciht will, das until erreicht wird...
z.b.:
repeat// <___________________
button1.Caption := '1'; // \
nummer := nummer +1; // |
if nummer = nummer1 then// |
//zum anfang springen _______/