Удаление текста между кавычками, включая их. Но почему то обрабатывает не так. Что делаю не так ?.
Код:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 | var
ft, ft2: TextFile;
i, p, Len, Pos1 : Integer ;
S : String ;
.........................
AssignFile(ft2, new_name);
Rewrite(ft2);
Append(ft2);
begin
while not eof(ft) do
begin
readln(ft,s);
begin
Len := Length(S);
Pos1 := 0 ;
for P := Len downto 1 do begin
if S[P] = '"' then begin
if Pos1 = 0 then Pos1 := P
else begin
Delete(S, P, Pos1 - i + 2 );
Pos1 := 0 ;
end ;
writeln (ft2,s)
end ;
end ;
end ;
end ;
closefile(ft);
closefile(ft2);
end ;
end ;
end ;
|
Когда делаю вот так, то есть подключаю memo1 и memo2 то работает:
Код:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 | var
S : String ;
i, Len, Pos1 : Integer ;
begin
S := Memo1 . Text;
Len := Length(S);
Pos1 := 0 ;
for i := Len downto 1 do begin
if S[i] = '"' then begin
if Pos1 = 0 then Pos1 := i
else begin
Delete(S, i, Pos1 - i + 2 );
Pos1 := 0 ;
end ;
end ;
end ;
Memo2 . Text := S;
end ;
|