ne sam chak tolkowa maloumen wse pak :)
ideqta beshe
var
s:String;
x,l:integer
line:integer;
c:char;
st:char;
plen,slen:integer;
midx:integer;
pi:integer;
lo:integer;
begin
result:='Not found!';
line:=0;lo:=0;
if (pattern='') or (s='') then exit;
st:=pattern[1];
s:=strlst.text;
plen:=length(pattern);
slen:=length(s);
x:=1;
midx:=1+slen-plen;
while (x<midx) do begin
c:=s[x];
if c=#13 then begin
inc (line);
lo:=x;//twa e malko sporen moment..
end;
if c=st then begin
l:=x+plen-1;pi:=2;
while (pi<l) do if s[x+pi]=pattaern[pi] then inc (pi) else break;
if not (ip<i) then begin
result:='Found at line '+inttostr(line)+' at lineoffset '+inttostr (x-lo);
break;
end;
end;
inc (x);
end;
end;
p.s twa go pisah na "prima vista" direktno w brawsera za towa se izwinqwam za sintaktichnite greshki ne sam go testwal ama ideqta bi trqbwalo da raboti. ako nqkoj moje da go naprawi s defakto po-malko cikli/obrashteniq kam pameta neka da postne da widim
------------------------------
I got a COMPILER, and I'm not afraid to use it!