Usuwanie lini textu z RichEdit

0

Zapewne odpowiedz jest banalnie prosta ale ja nie mam pojecia jak cos takiego zrobic {wstyd} : mam komponent richedit w nim jest jakis text w jakies linijce. Powiedzmy ze cala linijka wyglada tak "Jakis tekscik 0234 (aaa)" i jak zrobic ze jak procedura znajdzie powiedzmy text '0234' to usunie cala linijke z tym tekstem. Aha komponet jest RichEdit1.Visible=false nie wiem czy to cos zmienia ale zawsze warto napisac :-) --pozdrawiam PEDROS {hello}
Delphi6

0

Spróbuj tego:

var
i,j:integer;
szukany,temp:string;
begin
szukany:=inputbox('Szukaj',,);

for i:=0 to richedit1.Lines.Count-1 do
begin
temp:=richedit1.Lines[i];
for j:=1 to length(temp) do
begin
if szukany[1]=temp[j] then
begin
if szukany=copy(temp,j,length(szukany)) then richedit1.Lines.Delete(i);
end;
end;
end;

end;

{brawo} Narka

0

Wielkie dzieks. DZIALA.--pozdrawiam PEDROS {hello}
Delphi6

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