🚀 go-pugleaf

Cze�� 

Mam do Was programi�ci ma�� pro�be 
Czy mo�e kto� mnie pom�c takim ma�ym zapewne g�upim problemem .:
Przeszukiwanie ca�ego dokumentu w poszukiwaniu 
jakiegos stringa i jezeli zostanie znaleziony szuka nastepnego
identycznego, az przeleci ca�y dokument.
W Helpie znalazmel tylko szukanie do pierwszego znalezienia a moja metoda
troche sie chszani 

Moja metoda 

procedure TFormGlowne.PageLinkiEnter(Sender: TObject);
var
   Sel_Start,Sel_End,x,i : Integer;
   edycja_text,text,img : String;
begin
     LinkList.Items.Clear;

     i:=0;
     x := 0;
     edycja_text := Edycja.Text;
     Edit1.Text := Edycja.Text;
     edycja_text := LowerCase(edycja_text);


while Pos('"',Edycja_Text) = 0  do ;
  begin
          Sel_Start := Pos('"' ,Edycja_Text);
          Sel_End := Pos('"',Edycja_Text);
          Edit1.SelStart := Sel_Start - 1 + x ;
          Edit1.SelLength := Sel_End - Sel_Start + 1 ;
          LinkList.Items.Add(Edit1.SelText);
          Edit1.SelLength := 0 ;
          Edycja_Text := Copy(Edycja_Text,Sel_End +1,Length(Edycja_Text));
          x:= x + Sel_End;
  end;

end;

To co� wy�ej ma szuka� cytat�w i wywala� je w LIstBox - jezeli wie kros jak
to zrobic 
lub je�eli maa inn� metod� na cos takiego - to by� bym  bardzo wdzieczny.


Pozdrawiam Daniel Gogolewski
czlo...@polbox.com
czlo...@dobrestrony.com.pl