Op deze website gebruiken we cookies om content en advertenties te personaliseren, om functies voor social media te bieden en om ons websiteverkeer te analyseren. Ook delen we informatie over uw gebruik van onze site met onze partners voor social media, adverteren en analyse. Deze partners kunnen deze gegevens combineren met andere informatie die u aan ze heeft verstrekt of die ze hebben verzameld op basis van uw gebruik van hun services. Meer informatie.

Akkoord

Vraag & Antwoord

Programmeren

Delphi beginners vraag

Lodyx
7 antwoorden
  • [code:1:9a09097c54]
    procedure TForm1.Button1Click(Sender: TObject);
    begin
    If Edit1.Text = 'stop' then
    begin
    showmessage ('nu gebeurd er niks');
    end;

    If edit2.Text = 'Edit2' then
    showmessage ('nu wel')

    end;

    end.
    [/code:1:9a09097c54]
    Hoe laat je de procedure stoppen als Edit1.Text 'stop' is. Dan wil ik dat delphi niet verder gaat met de daar op volgende code.
  • Probeer eens '[i:458cae754a]Break;[/i:458cae754a]' onder je [i:458cae754a]ShowMessage [/i:458cae754a]te zetten
  • Break; werkt alleen in een loop :(
  • Maar als je zoekt met Google op 'Delphi Break', kan je op de eerst gegeven site dit vinden:
    [quote:c16a6bfc7c="Related commands"][b:c16a6bfc7c]Exit[/b:c16a6bfc7c][/color:c16a6bfc7c] Exit abruptly from a function or procedure.[/quote:c16a6bfc7c]
  • denk dat dit het is wat ik nodig heb 8)
    stom stom stom, heb dat exit al duizend maal geprobeerd, maar dit moet niet met een ';' er achter.

    Heel erg bedankt Michiel!
  • Achter elke regel Delphi code gaat een semi-colon (punt-komma), met uit zondering van een if-else constructie, en nog wel meer dingen waar het niet mag/hoeft, maar dat is hier niet het geval dus je doet iets verkeerd als het alleen zonder semi-colon werkt
  • [quote:b9ab128e77="no_name"][code:1:b9ab128e77]
    procedure TForm1.Button1Click(Sender: TObject);
    begin
    If Edit1.Text = 'stop' then
    begin
    showmessage ('nu gebeurd er niks');
    end;

    If edit2.Text = 'Edit2' then
    showmessage ('nu wel')

    end;

    end.
    [/code:1:b9ab128e77]
    Hoe laat je de procedure stoppen als Edit1.Text 'stop' is. Dan wil ik dat delphi niet verder gaat met de daar op volgende code.[/quote:b9ab128e77]
    Uhh, "procedureel programmeren" ofzo…
    [code:1:b9ab128e77]
    if (Edit1.Text <> 'stop') then
    begin
    If Edit2.Text = 'Edit2' then
    Showmessage ('nu wel');
    end
    else
    begin
    Showmessage ('nu gebeurd er niks');
    end;
    [/code:1:b9ab128e77]
    of je eigen code een heel klein beetje aangepast…
    [code:1:b9ab128e77]
    procedure TForm1.Button1Click(Sender: TObject);
    begin
    If Edit1.Text = 'stop' then
    begin
    showmessage ('nu gebeurd er niks');
    end
    else
    begin
    If edit2.Text = 'Edit2' then
    showmessage ('nu wel')
    end;
    end;

    end.
    [/code:1:b9ab128e77]
    [quote:b9ab128e77="Lodyx"]Achter elke regel Delphi code gaat een semi-colon (punt-komma), met uit zondering van een if-else constructie, en nog wel meer dingen waar het niet mag/hoeft, maar dat is hier niet het geval dus je doet iets verkeerd als het alleen zonder semi-colon werkt[/quote:b9ab128e77]
    De semi-colon (punt-komma) is ingevoerd om commando's van elkaar te scheiden. Het is dus in principe verkeerd om te denken dat achter elke regel zo'n teken moet staan.

Beantwoord deze vraag

Dit is een gearchiveerde pagina. Antwoorden is niet meer mogelijk.