Error: Undeclared identifier
Portál: | amos.ukf.sk |
Kurz: | Programovanie 1 |
Kniha: | Error: Undeclared identifier |
Vytlačil(a): | Guest user |
Dátum: | piatok, 4 októbra 2024, 06:14 |
1. Undeclared identifier: 'sucet'
Pôvodný zdrojový kód unit Unit1; interface uses type var implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); sucet:= a + b; ShowMessage(IntToStr(sucet)); { [Error] Unit1.pas(34): Undeclared identifier: 'sucet' Prekladač nepozná identifikátor sucet. PREČO? Premennú sucet sme nedeklarovali. RIEŠENIE Premennú sucet dopíšeme do časti var príslušnej procedúry. Upravený zdrojový kód -------------------------------------------------------------------------------- procedure TForm1.Button1Click(Sender: TObject); sucet:= a + b; ShowMessage(IntToStr(sucet)); -------------------------------------------------------------------------------- } |
2. Undeclared identifier: 'lenght'
Pôvodný zdrojový kód unit Unit1; interface uses type var implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); for i:= 1 to lenght(ret) do Label1.Caption:= 'Pocet malych pismen: ' + IntToStr(poc); { [Error] Unit1.pas(35): Undeclared identifier: 'lenght' Prekladač nepozná identifikátor lenght. PREČO? V zápise mena funkcie sme urobili preklep. RIEŠENIE Preklep opravíme. Upravený zdrojový kód -------------------------------------------------------------------------------- procedure TForm1.Button1Click(Sender: TObject); for i:= 1 to length(ret) do Label1.Caption:= 'Pocet malych pismen: ' + IntToStr(poc); -------------------------------------------------------------------------------- } |
3. Undeclared identifier: 'Label1'
Pôvodný zdrojový kód unit Unit1; interface uses type var implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); for i:= 1 to length(ret) do Label1.Caption:= 'Pocet malych pismen: ' + IntToStr(poc); { [Error] Unit1.pas(37): Undeclared identifier: 'Label1' Prekladač nepozná identifikátor Label1. PREČO? Na formulári nie je komponent s týmto názvom. RIEŠENIE Komponent Label umiestnime na formulár. V našom prípade žiadny iný Label Upravený zdrojový kód -------------------------------------------------------------------------------- } |
4. Undeclared identifier: 'Form2'
Pôvodný zdrojový kód unit Unit1; interface uses type var implementation
{$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); { [Error] Unit1.pas(29): Undeclared identifier: 'Form2' Prekladač nepozná identifikátor Form2. PREČO? Premenná Form2 je deklarovaná v inom unite (v našom prípade ide o unit info). RIEŠENIE Prekladač programátora upozorní, že chce použiť premennú s iného unitu, ktorý Na otázku Form 'Form1' references form 'Form2' declared in unit 'info' which is not in (Vo formulári Form1 sa odvolávate na formulár Form2 deklarovaný v unite info, stačí odpovedať kliknutím na OK. Alebo meno unitu dopísať v časti USES ručne. Upravený zdrojový kód -------------------------------------------------------------------------------- |
5. Undeclared identifier: 'Edit1'
Pôvodný zdrojový kód unit Unit1; interface uses type var implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); for i:= 1 to length(ret) do Label1.Caption:= 'Pocet malych pismen: ' + IntToStr(poc); { [Error] Unit1.pas(31): Undeclared identifier: 'Edit1' Prekladač nepozná identifikátor Edit1. PREČO? Ale na formulári je komponent Edit. Programátor vymazal namiesto vlastnosti Text vlastnosť Name. RIEŠENIE Do vlastnosti Name príslušeného komponentu Edit napíšeme správne meno, -------------------------------------------------------------------------------- } |