Thema: Delphi goto befehl

Einzelnen Beitrag anzeigen

Benutzerbild von SubData
SubData

Registriert seit: 14. Sep 2004
Ort: Stuhr
1.078 Beiträge
 
Delphi 11 Alexandria
 
#6

Re: goto befehl

  Alt 15. Dez 2004, 12:56
Benutz doch bitte die Delphi Tags...

Du hast das Label zwar deklariert aber nirgendwo hingesetzt... Das geht einfach mit "Label:"
Dann springt er da hin, wo das steht...

Edit:

Du kannst bei If Abfragen auch begin und end verwenden... Spart Platz, Zeit und is übersichtlicher (Ausserdem schneller)

Delphi-Quellcode:
if not (checkbox1.checked) then
begin
  Artikelbeschreibung:=artikel.text;
  bezeichnung1:=dbedit1.text;
  bezeichnung2:=dbedit2.text;
  ho:=strtofloat(dbedit3.text);
  br:=strtofloat(dbedit4.text);
  ti:=strtofloat(dbedit5.text);
end else
begin
  bezeichnung1:=edit6.text;
  bezeichnung2:=edit7.text;
  ho:=strtofloat(edit8.text);
  br:=strtofloat(edit10.text);
  ti:=strtofloat(edit12.text);
end;
Ronny
/(bb|[^b]{2})/
  Mit Zitat antworten Zitat