Delphi beginners vraag

[anoniem]

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

[anoniem]

Probeer eens '[i:458cae754a]Break;[/i:458cae754a]' onder je [i:458cae754a]ShowMessage [/i:458cae754a]te zetten

[anoniem]

Break; werkt alleen in een loop :(

[anoniem]

Maar als je zoekt met Google op 'Delphi Break', kan je op de eerst gegeven site dit vinden: [quote:c16a6bfc7c="Related commands"][color=blue:c16a6bfc7c][b:c16a6bfc7c]Exit[/b:c16a6bfc7c][/color:c16a6bfc7c] Exit abruptly from a function or procedure.[/quote:c16a6bfc7c]

[anoniem]

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!

[anoniem]

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

[anoniem]

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

[anoniem]

Ik zei ook [i:812c8220c2]achter elke [b:812c8220c2]regel[/b:812c8220c2] Delphi [b:812c8220c2]code[/b:812c8220c2][/i:812c8220c2] ;) Ook al zal het wel al opgelost zijn, zo had het ook gekunt (als ik het zo even snel goed gelezen heb): [code:1:812c8220c2]procedure TForm1.Edit1Change(Sender: TObject); begin if not (LowerCase(Edit1.Text) = 'stop') then begin {Er is iets veranderdt aan de text, maar de nieuwe text is niet het woord stop} end; end;[/code:1:812c8220c2]