Pytanie [ RichEdit, SynEdit - Usuwanie pustych linii ]

0

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

Odpowiedz na twoje pierwsze pytanie byla podana calkiem niedawno.--Pozdrawiam {hello}
Tomasz K.

0

co do richedit zeby szukal tekstu to:

po if FoundAt &lt&gt -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 &lt&gt 0 then
StartPos := SelStart + SelLength
else
StartPos := 0;

ToEnd := Length(text) - StartPos;

FoundAt := FindText(edit1.text, StartPos, ToEnd, [stMatchCase]);
if FoundAt &lt&gt -1 then
begin
  SetFocus;
  SelStart := FoundAt;
  SelLength := Length(edit1.text);
end;

end;
edit1.text :='';
end;

1 użytkowników online, w tym zalogowanych: 0, gości: 1