[Delphi] Unknown Declared identifier

[cool0]

Ik moet voor school in delphi een simpel progje schrijven nu heb ik een edit form gemaakt en een button. Wanneer ik op de knop druk moet die iets toe voegen tot maximaal 48. Nu heb ik de volgende instructie daar voor geschreven.

code:

procedure TForm1.Button1Click(Sender: TObject);
N := StrToInt(Edit1.Text);
Boekingen := ADODataSet2.Fieldbyname ('Boekingen').Value;
if N + Boekingen <= 48 then
begin 
   ADODataSet2.Edit;
   ADODataSet2.FieldByName('Boekingen').Value := N + Boekingen;
   ADODataSet2.Post;
   DBGrid1.Refresh;     // niet zeker of dit nodig is
end
else edit1.Text := 'helaas dit mag niet';


end;

end.

Als ik nu run doet geeft die de melding Undeclared identifier: 'N'


Hoe kan ik dit oplossen?

[whoami]

Kijk eens in de help naar het 'var' keyword, en kijk ook eens hoe en waar je variablen moet declareren.

[elevator]

Zoek ook het 'begin' keyword nog even op, als je dat op de juiste plek toepast maakt het de andere foutmeldingen een heel stuk duidelijker

[whoami]

elevator schreef op 22 september 2004 @ 12:22:
Zoek ook het 'begin' keyword nog even op, als je dat op de juiste plek toepast maakt het de andere foutmeldingen een heel stuk duidelijker

Dat ook ja.

[cool0]

wat is fout aan dan?? heb er namelijk al tig jaar over gedaan om dit zover te krijgen.

[ Voor 61% gewijzigd door cool0 op 22-09-2004 12:29 ]

[whoami]

cool0 schreef op 22 september 2004 @ 12:29:
wat is fout aan dan??

Dat zeggen we toch?
Je hebt geen begin, en ook geen var sectie als je die nodig mocht hebben.
Kijk eens in je boek.

[cool0]

Boek die hebben we niet we hebben alleen wat aantekingen van de leraar thats it. Ja collegegeld gaat omhoog maar de kwaliteit van de studie.

[whoami]

Kijk dan eens in de help.
Een procedure ziet er zo uit:

code:

procedure procedurename( arguments );
var
begin
// statements

end;

[ Voor 10% gewijzigd door whoami op 22-09-2004 12:34 ]

[curry684]

cool0 schreef op 22 september 2004 @ 12:32:
Boek die hebben we niet we hebben alleen wat aantekingen van de leraar thats it. Ja collegegeld gaat omhoog maar de kwaliteit van de studie.

Dat hoeft echter geen excuus voor een dalende kwaliteit van de student te zijn. Een student is iemand die zelf wat gaat uitzoeken, de mensen hier hebben reeds alle obvious fouten in je code aangegeven, wat verwacht je nu nog verder? Dat we het voor je gaan schrijven?

Zoek gewoon zelf even wat met Google, je hebt intussen ruim voldoende munitie en tips om dit probleem op te kunnen lossen. GoT is een forum, geen helpdesk.

[cool0]

Ok moet het volgende zijn

code:

procedure TForm1.Button1Click(Sender: TObject);
var
  N, Boekingen: Integer;
begin
N := StrToInt(Edit1.Text);
Boekingen := ADODataSet2.Fieldbyname ('Boekingen').Value;
if N + Boekingen <= 48 then
begin 
   ADODataSet2.Edit;
   ADODataSet2.FieldByName('Boekingen').Value := N + Boekingen;
   ADODataSet2.Post;
   DBGrid1.Refresh;     // niet zeker of dit nodig is
end
else edit1.Text := 'helaas dit mag niet';


end;

end.

Dan werkt die zoals die hoort te werken

[LordLarry]

http://www.delphibasics.co.uk/index.html