|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Что делаю не так Delphi XE
Удаление текста между кавычками, включая их. Но почему то обрабатывает не так. Что делаю не так ?.
Код:
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 то работает: Код:
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; |