Witam!
mam problem otóż to że mam komponet memo i memo 2 i w memo 1 jest tam kilka słów i che żeby powpisaniu w edit1 i w edit2 i po napcisnieciu buttona tte słowa wyswietliło w memo2
aha i jak nie znajdzie tych słów to zeby na memo2 wysweiliło error ;-)
wiecie jak to zoribć?? ;-) :-)
Które słowa?
byle jakie które wpisze w edit1 i w edit 2 bo w memo1 bedzie coś w stylu bardzooo długiego tektu i po nacisnieciu buttonika te słowa odnajdzie i wysiweli je na memo2
w Edit 1 wpisze tylko jedno słowo a w edit 2 też jedno słowo ale inne od tamtego
Za dużo tych słów , o które ci chodzi?
jeszce raz naopisze oco loto:
chodzi oto że jak wpisze siem w edit1 słowo AMS a w dugim Edit2 wpisze sie słowo Delphi i jeżeli te słowa bedom występować w memo1 to ma te słowa wyświetlić w memo2 a jeżeli ich nie znajdzie to w memo2 ma pokazać "NIE ZNALEZIONO'"
podkreśle jeszce raz w memo1 bedzie jakieś tam tekst !!! byle jaki!! ;]
przede wszystkim musisz miec funkcje, ktora z potoku slow wydobedzie to ktore cie interesuje. Taka funkcje juz zamieszczalem w forum jakies 2 dni temu (poszukaj - nazywa sie FindText lub cos takiego).
A potem to juz latwizna.
Jako parametr pierwszy do funkcji podajesz tekst w ktorym ma byc szukane slowo (np. Memo1.text) a jako drugi parametr szukane slowo (edit1.text).
Pozdrawiam [browar]
A ja bym polecil funkcje Pos Nie pamietam parametrow ale mozesz je znaleŹĆ w http://vcl.4programmers.net :)
A z funkcja Pos moze byc tak:
// st - to szukany tekst
// text - tekst przeszukiwany
start:= Pos(st, text);
// start w ktorym miejscu sie tekst zaczyna
a wszystko to jest w helpie Delphi..
A z funkcja Pos moze byc tak:
// st - to szukany tekst
// text - tekst przeszukiwany
start:= Pos(st, text);
// start w ktorym miejscu sie tekst zaczynaa wszystko to jest w helpie Delphi..
Z tym ostatnim komentarzem raczej sie nie zgodze. Pos zwraca odpowiednie wartosci jak cos znajdzie lub jak nic nie znajdzie wiec to nie moze byc miejsce w jakim sie zaczyna szukac :) A Pos przeszukuje caly tekst od poczatku do konca :)
A z funkcja Pos moze byc tak:
// st - to szukany tekst
// text - tekst przeszukiwany
start:= Pos(st, text);
// start w ktorym miejscu sie tekst zaczynaa wszystko to jest w helpie Delphi..
Z tym ostatnim komentarzem raczej sie nie zgodze. Pos zwraca odpowiednie wartosci jak cos znajdzie lub jak nic nie znajdzie wiec to nie moze byc miejsce w jakim sie zaczyna szukac :) A Pos przeszukuje caly tekst od poczatku do konca :)
To poczytaj to:
function Pos(Substr: string; S: string): Integer;
Description
Pos searches for a substring, Substr, in a string, S. Substr and S are string-type expressions.
Pos searches for Substr within S and returns an integer value that is the index of the first character of Substr within S.
Czyli ????
To poczytaj to:
function Pos(Substr: string; S: string): Integer;Description
Pos searches for a substring, Substr, in a string, S. Substr and S are string-type expressions.
Pos searches for Substr within S and returns an integer value that is the index of the first character of Substr within S.
Czyli ????
Hmm ja tego nie czytalem z helpa z delphi ale tak jest :) Tak samo jest napisane w naszej encyklopedii delphi :) Mozesz sobie sprawdzic piszac prosty programik :) Wrzuc na forme edit, memo i buttona :) i w onclick buttona wpisz cos takiego ShowMessage(IntToStr(Pos(Edit1.Text, Memo1.Text));
No i poprobuj zeby w edicie byl tekst wystepujacy w memo i taki ktory nie wystepuje w memo i zobaczysz ze otrzymasz rozne wartosci :) Nie wiem jakie i nie mam jak teraz tego sprawdzic bo nie mam zainstalowane delphi ale jak je tylko zainstaluje to sprawdze :)
[dopisane]
No i juz wiem jak to jest z tym Pos. Zwraca ona wartosc w jakim punkcie jest znaleziony tekst :) Tak wiec jak nie znajdzie tekstu to bedzie 0 a jak znajdzie jakis tekst to zwroci jakas liczbe :)
OK! coś z tego będzie ;-) ;-) ;-)
Wystarczy dać:
if (pos(edit1.text, memo1.text)0) and (pos(edit2.text, memo1.text)0) then
memo2.text:=edit1.text+', '+edit2.text
else
memo2.text:='Nie znaleziono';