Ben een behoorlijke newbie in programmeren maar ik heb het volgende getikt:
En nu krijg ik de volgende foutmeldingen:
Waarom? Ik snap het niet, ben bang dat het heel simpel is maar ik kan het niet uit de help halen nog een paar andere mensen met meer ervaring kunnen mij vertellen wat er verkeerd is. Iemand anders wel?
code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
| unit Unit3;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, DM, ComCtrls, ClientShow, Buttons, Grids, DBGrids,
DBCtrls;
type
TForm3 = class(TForm)
Label15: TLabel;
Label20: TLabel;
Label16: TLabel;
Label21: TLabel;
TaakNaamEdit: TEdit;
TaakDeadlineEdit: TEdit;
TaakStatusEdit: TEdit;
TaakToegewezenEdit: TEdit;
Button1: TButton;
procedure saveTaakForm();
procedure resetTaakForm();
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form3: TForm3;
implementation
uses Mainform;
{$R *.dfm}
procedure saveTaakForm();
begin
//check if required values are entered...
if ((TaakNaamEdit.Value <> '') and
(TaakDeadlineEdit.Value <> '') and
(TaakStatusEdit.Value <> '') and
(TaakToegewezenEdit.Value <> ''))
then with DataM do begin
//add data to table...
TakenTable.Append;
TakenTableProjId.Value := ProjTableId.Value;
TakenTableNaam.Value := TaakNaamEdit.Text;
TakenTableDeadline.Value := TaakDeadlineEdit.Text;
TakenTableStatus.Value := TaakStatusEdit.Text;
TakenTableToegewezen.Value := TaakToegewezenEdit.Text;
TakenTable.Post;
// remove window data...
resetTaakForm();
end else begin
ShowMessage('Nog niet alle velden zijn ingevuld.');
end;
end;
procedure resetTaakForm();
begin
TaakNaamEdit.Text := '';
TaakDeadlineEdit.Text := '';
TaakStatusEdit.Text := '';
TaakToegewezenEdit.Text := '';
procedure TForm3.Button1Click(Sender: TObject);
begin
saveTaakForm()
end;
end. |
En nu krijg ik de volgende foutmeldingen:
code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
| Build [Error] Unit3.pas(43): Undeclared identifier: 'TaakNaamEdit' [Error] Unit3.pas(43): ')' expected but identifier 'Text' found [Error] Unit3.pas(51): Missing operator or semicolon [Error] Unit3.pas(52): Missing operator or semicolon [Error] Unit3.pas(52): Undeclared identifier: 'TaakDeadlineEdit' [Error] Unit3.pas(52): Missing operator or semicolon [Error] Unit3.pas(53): Missing operator or semicolon [Error] Unit3.pas(53): Undeclared identifier: 'TaakStatusEdit' [Error] Unit3.pas(53): Missing operator or semicolon [Error] Unit3.pas(54): Missing operator or semicolon [Error] Unit3.pas(54): Undeclared identifier: 'TaakToegewezenEdit' [Error] Unit3.pas(54): Missing operator or semicolon [Error] Unit3.pas(56): Missing operator or semicolon [Error] Unit3.pas(59): Undeclared identifier: 'resetTaakForm' [Error] Unit3.pas(69): Undeclared identifier: 'TaakNaamEdit' [Error] Unit3.pas(69): Missing operator or semicolon [Error] Unit3.pas(70): Undeclared identifier: 'TaakDeadlineEdit' [Error] Unit3.pas(70): Missing operator or semicolon [Error] Unit3.pas(71): Undeclared identifier: 'TaakStatusEdit' [Error] Unit3.pas(71): Missing operator or semicolon [Error] Unit3.pas(72): Undeclared identifier: 'TaakToegewezenEdit' [Error] Unit3.pas(72): Missing operator or semicolon [Error] Unit3.pas(74): Statement expected but 'PROCEDURE' found [Error] Unit3.pas(21): Unsatisfied forward or external declaration: 'TForm3.saveTaakForm' [Error] Unit3.pas(22): Unsatisfied forward or external declaration: 'TForm3.resetTaakForm' [Fatal Error] test_mathijs.dpr(8): Could not compile used unit 'Hadiebla\Unit3.pas' |
Waarom? Ik snap het niet, ben bang dat het heel simpel is maar ik kan het niet uit de help halen nog een paar andere mensen met meer ervaring kunnen mij vertellen wat er verkeerd is. Iemand anders wel?