🚀 go-pugleaf

don't the ansireplacestr and ansireplacetext do all of this?

b
"Yehia Ahmed" <yehiaeg@hotmail.com> wrote in message
news:40153f7d@newsgroups.borland.com...
> hello,
> I wrote this procedure which remove the spaces after and before the
"equal"
> sign,
> for example --> test        =                  test2
>       becomes--> test = test2
> and -->test=test2
>      becomes-->test = test2
> (like the visual basic editor)
> my function was like this:
>
> Procedure RemoveSpaces (Ln:integer);
> var ReStr:String;
>     Re,re,i:integer;
>     F1,F2:boolean;
> begin
> ReStr := maintext.lines[ln-1];
> Re:= instrmt('=',lnbegin,toend - lnbegin ,[ ],true,true); -->just like
> maintext.findtext (maintext is a richedit)
> Re2:= firstcolumn(ln) -1;
> repeat
> if re <> -1 then begin
>    Restr[Re -re2]:= '`';
>    for i := 1 to length(restr) do begin
>       try
>          if (restr[re - i -re2] = ' ') And(f1=false) then restr[re -
> i -re2]:= '`' else f1 := true;
>          if (restr[re + i -re2] = ' ') And(f2=false) then restr[re +
i-re2]
> := '`' else f2 := true;
>          if (f1=true) and (f2=true) then break;
>       except
>          //
>       end;
>    end;
> Re:= instrmt('=',Re+1 ,toend - lnbegin ,[],true,true);
> end;
> until Re= -1;
> ReStr:= StringReplace(restr,'%',' = ',[rfreplaceall]); ---> error occurs
> here!!
> ReStr:= StringReplace(restr,'`','',[rfreplaceall]);
> maintext.lines[ln-1] := ReStr;
> end;
>
> this procedure is extremely slow when loading text from a file cause it's
> called on every line, sometimes there is strange EAccessViolation error on
> the stringreplace line(still don't know why), anyone can help me to
improve
> a better procedure?
>
> Yehia
>
>
>