akselekbezelek
Użytkownik
- Dołączył
- Czerwiec 4, 2007
- Posty
- 334
Wiec tak ucze sie z ksiazki Pana Adama Baducha juz ponad miesiac. Kazdy temat uwaznie studiuje (nie ma takich tematow w ksiaszce ktrych bym nie ominol jak mi nie wyjdzie).Jestem na rozdziale "Polecenie Break" i dokladnie przepisalem kod z ksiazki i nic Delphi wyskakuje blad.Co ejst tu zle ?
program Project1;
{$APPTYPE CONSOLE}
uses
SysUtils;
const
Tablica : array[0..4] of String =
('Zenowefa', 'Anita', 'Aga', 'Magda', 'Anita');
procedure Szukaj(Element: String);
var
I : Integer;
begin
if Tablica = Element then
begin
ShowMessage('Znalazlem - przerywam');
Break;
ShowMessage('Ten tekst sie nie wyswietli...');
end;
end;
end.
program Project1;
{$APPTYPE CONSOLE}
uses
SysUtils;
const
Tablica : array[0..4] of String =
('Zenowefa', 'Anita', 'Aga', 'Magda', 'Anita');
procedure Szukaj(Element: String);
var
I : Integer;
begin
if Tablica = Element then
begin
ShowMessage('Znalazlem - przerywam');
Break;
ShowMessage('Ten tekst sie nie wyswietli...');
end;
end;
end.