Jak dokończyć tą procedurę

0

if memo1.text='abc' then *musi odnajdywać tekst w takim ciągu znaków acbbcbcabcd

  • tu ma być zaznaczony text 'abc'

co zrobić aby program odczytywał litery po kolei z memo, i wykonywał procedurę przypisaną każdej literze
--Delphi 2 , 6 i 5
Ciekawe pomysły i poszukiwanie rozwiązań.

0

Ja bym to zrobil nastepujaco (nie wiem jak dziala Memo, bo korzystam z Edit'a)

zadeklarowac petle gdzie licznikime bedzie i:
if Memo.Text[i]='a' then begin
if Memo.Text[i+1]='b' then begin
if Memo.Text[i+2]='c' then begin
{tutaj operacje gdy ciag znakow rowna sie 'abc'}
end;
end;
end;

licznik maksymalny rowna sie liczbie wpisanych znakow, gdy znaki sa wpisywane to powinnienes uzyc funkcji Lenght;
:-)

0

DENAT napisał:
Ja bym to zrobil nastepujaco (nie wiem jak dziala Memo, bo korzystam z Edit\'a)
&gt
&gtzadeklarowac petle gdzie licznikime bedzie i:
&gtif Memo.Text[i]='a' then begin
&gt if Memo.Text[i+1]='b' then begin
&gt if Memo.Text[i+2]='c' then begin
&gt {tutaj operacje gdy ciag znakow rowna sie 'abc'}
&gt end;
&gt end;
>end;
&gt
&gtlicznik maksymalny rowna sie liczbie wpisanych znakow

i tu twoj program przekroczy zakres i bedzie dupa ...

Pozdrawiam

Fojcik

0

A ja bym zrobił tak :

var
poz : Integer;

begin
poz:= pos('abc', Memo1.text);
if poz &lt&gt 0 then {jakaś procedura}
end;

i to na tyle :)) {browar} --Pozdrawiam eSka :-)

1 użytkowników online, w tym zalogowanych: 0, gości: 1, botów: 0