Neregistrovaný Přihlásit Registrovat

Přidat otázku mezi oblíbenéZasílat nové odpovědi e-mailem Vyhledavani v kompinentě MEMO (Delphi) 

procedure TForm1.TextFound(const text : string; var MyMemo : TMemo );
var 
 i : integer;
begin
  for i := 0 to MyMemo.Lines.count-1 do 
  begin
    if (pos( text, MyMemo.Lines[i]) > 0) then
    begin
      //tu si urob čo chceš

    end;
  end;
end;

Reakce na odpověď

1 Zadajte svou přezdívku:
2 Napište svou odpověď:
3 Pokud chcete dostat ban, zadejte libovolný text:

Zpět do poradny