W jaki sposób w RichEdit lub SynEdit wykryć wszystkie puste linie i je usunąć, lub usunąć wszystkie linie zawierające jakiś xxx text. W jaki sposub obsługiwać FindDialog żeby wykrywał jakiś tekst w RichEdit, ja znam tylko taką :
t:='xxx';
x:=pos(t, memo1.Text);
memo1.SelStart:=x-1;
memo1.SelLength:=Length(t);
memo1.SetFocus;
czy można jakoś inaczej ??
0
0
Odpowiedz na twoje pierwsze pytanie byla podana calkiem niedawno.--Pozdrawiam {hello}
Tomasz K.
0
Luk et dis :
http://www.4programmers.net/forum/index.php?action=show&id=18275--Pozdrawiam {hello}
Tomasz K.
0
co do richedit zeby szukal tekstu to:
po if FoundAt <> -1 then
jest wątek - "jezeli znalazłem to" :)
edit1.text - to twój tekst :)chodzi mi tu o string w edit1
var
FoundAt: LongInt;
StartPos, ToEnd: Integer;
begin
with form1.RichEdit1 do
begin
if SelLength <> 0 then
StartPos := SelStart + SelLength
else
StartPos := 0;
ToEnd := Length(text) - StartPos;
FoundAt := FindText(edit1.text, StartPos, ToEnd, [stMatchCase]);
if FoundAt <> -1 then
begin
SetFocus;
SelStart := FoundAt;
SelLength := Length(edit1.text);
end;
end;
edit1.text :='';
end;