[delphi] szukanie w memo i kopiowanie słów

Witam

Próbuje napisać program ale nie wiem jak zacząć.
Otóż chce w memo1 poszukać słów np gram teskt data i jeśli te słowa będą w którejś lini w memo1 to przekopiować te linie do memo2 lub usunać wsztystkie linie, które nie zawierają tych słow w memo1

np w memo1 mamy

linia 0 : gram dzisiaj
linia 1 : dzisiaj
linia 2 : tekst podany
linia 3 : data jutrzejsza
linia 4 : proba programu

i albo linie 0,2,3 skopiować do memo2 albo w memo1 zostawić te linie a skasować 1,4

proszę o pomoc jak to zacząć

---

Spróbuj czegoś takiego. Wrzuć na formę Memo1 i Memo2
const Tablica : array[0..2] of String = ( 'gram', 'tekst', 'data'); var i,j:integer; begin for i:=0 to Memo1.Lines.Count-1 do begin for j:=0 to 2 do begin if Pos(Tablica[j], Memo1.Lines[i])>0 then begin Memo2.Lines.Add(Memo1.Lines[i]); break; end; end; end; end;

spróbuj:
for i := 0 to memo1.lines.count - 1 do if Pos('jakis_tekst', memo1.lines[i]) <> 0 then memo2.lines.add(memo1.lines[i]);
nie wiem czy o to chodziło ale... wpisałem:D

//widać o minutę się spóźniłem:D
Użytkownik czychacz edytował ten post 04 grudzień 2008, 18:29
dziękuje bardzo za pomoc

chciałem podpowiedź a otrzymałem kod :) super jeszcze raz bardzo dziekuje :)

zanotowane.pl

doc.pisz.pl

pdf.pisz.pl

zsf.htw.pl