نمی دونم پروسیجری که پروسیجر بالا رو فراخوانی می کنه به درد میخوره یا نه:
procedure TMainForm.DelVG177();
var
I,J:Word;
St:TStrings;
S:String;
InVGStatus:Byte;
begin
For I:=1 to FilesNo do
Begin
St:=TStringList.Create;
St.LoadFromFile(Files[I]);
S:=Copy(St.Text,1,Length(St.Text)-2);
St.Free;
InVGStatus:=0;
For J:=Length(S)-1 Downto 1 do
Begin
if Copy(S,J,2)='GV' then
InVGStatus:=1-InVGStatus
else if (InVGStatus=1)
And (S[J]=#177) then
Delete(S,J,1);
End;
SaveFileStr(S,I);
End;
end;
با این توضیح که در فایلها کارکتر 177 انتهای سطر حساب میشه و میخوام این کارکتر رو از وسط چیزی مثل تگ VG حذف کنم
اتفاق عجیب دیگه ای که میفته هم اینه که فقط در فایل اول کتابی که این پرو سیجر رو روش اجرا می کنم اتفاق میفته