Witam,
Piezę program z polem edycyjnym, polem memo i dwoma przyciskami (Koniec i Licz). Po naciśnięciu przycisku Koniec program ma kończyć działanie, zaś po naciśnięciu przycisku Licz program ma wypisać w polu memo wszystkie te słowa z pola edycyjnego, które na każdej nieparzystej pozycji mają samogłoskę. Przez słowo rozumiemy w tym zadaniu maksymalny ciąg znaków różnych od spacji.
na razie kombinuję dla jednego słow jak to zrobić i mam coś takiego:
linia:=Edit1.Text;
i:=1;
while not (linia[i]=' ') do
begin
slowo:=slowo+linia[i];
inc(i);
end;
j:=1;
repeat
if slowo[j] in ['i', 'y', 'e', 'a', 'o', 'u', 'ą', 'ę'] then
begin
inc(j);
jest:=true;
end
else
begin
break;
jest:=false;
End;
until j>=length(slowo);
if jest=true then label1.caption:=slowo;
Ale coś wynik nie jest poprawny.
Może mi ktoś udzielić jakiśwskazówek - będę bardzo wdzięczny.
Pozdrawiam
Tpokala