CO TU JEST ZLE HELP <<<<

[akselekbezelek]

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.

 

[d3vil]

Nie działa bo:
1) Przy uses nie ma Dialogs
2) Nie użyłeś w ogóle pętli
3) Skoro jej nie użyłeś uzycie break jest bezcelowe

 

[akselekbezelek]

poprawilem kod na (zastosowalem pentle repeat) i rzeczywiscie zapomnialem ze break zamyka penteki

program Project1;

{$APPTYPE CONSOLE}

uses
SysUtils,
Dialogs,
Windows;
const
Tablica : array[0..4] of String =
('Zenowefa', 'Anita', 'Aga', 'Magda', 'Anita');
var
Results : String;
begin
repeat
Writeln('Ile masz lat?');
readln(Results);
until Results = '20'

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;

end.


TERAZ PISZE ZE BLAD W PROCEDURCE ;/

 

[d3vil]

Napisz jaki chcesz uzyskac efekt, bo chwilowo nie bardzo Ci wychodzi -.-
Skąd to 'ile masz lat'?
Użyj pętli for/while przy spradzaniu tablicy...

 

[akselekbezelek]

Originally posted by d3vil
Napisz jaki chcesz uzyskac efekt, bo chwilowo nie bardzo Ci wychodzi -.-
Skąd to 'ile masz lat'?
Użyj pętli for/while przy spradzaniu tablicy...

chce uzyskac efekt ze wpisuje imie np anita do wyszukiwarki i to szuka i po zakonczeniu wiadomosc anita jest w bazie danych lub jej nie ma

uzyelm petli for ale nadal bledzik w procedure ;/

 

[T$cr!pt3r]

Procedura Break może być wykonywane tylko w połączeniu z pętlami.[/b]

Słowa Boducha.

Poprawiłem ci ten kod:

program Project1;



{$APPTYPE CONSOLE}



uses

SysUtils,Windows;

const

Tablica : array[0..4] of String =

('Zenowefa', 'Anita', 'Aga', 'Magda', 'Anita');



function Szukaj(Element: String) : Boolean;

var

I : Integer;

begin

i := 4;

Szukaj := false;

repeat

if Element = Tablica[i] then begin

Szukaj := true;

Break;

end;

i := i - 1;

until ( i = -1 )

end;



begin

if Szukaj('Anita') = true then MessageBox(0, 'Znalazlem "Anita"', 'Szukaj', MB_OK or MB_ICONINFORMATION) else  MessageBox(0, 'Nie znalazlem "Anita"', 'Szukaj', MB_OK or MB_ICONINFORMATION)

end.

 

[akselekbezelek]

no teraz wszystko ok big thx ale jakis dupny ten programik ;/