Witam wszystkich, zaznaczam że jestem początkującym użytkownikiem delphi, proszę o pomoc w rozwiązaniu problemu z wykasowaniem numeracji linii. do numerowania wykorzystuję poniższy kod który działa ok ale potrzebuje obecnie tak stworzoną numerację usunąć tz numery wyglądają tak N1 N2 N3 w zalezności jak ustawimy skok edit 2 i edit 1 numer początkowy. Problem polega na wyszukaniu znaku N plus jakaś wartość i wykasowaniu go w całym richedit.
procedure TForm1.RenumberClick(Sender: TObject);
var
p,l,d,s: integer;
begin
p:=0;
d:=0;
s:=strtoint(edit1.Text);
d:=strtoint(edit2.Text);
p:=s;
for l:=0 to mainfrm.Lines.Count -1 do
begin
mainfrm.Lines[l] := 'N'+inttostr(p)+' '+ mainfrm.Lines[l];
p:=p+d;
end;
end;
dodanie znacznika <code class="delphi"> - fp