|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
переход строки в Memo
Записываю в компонент Memo текст из файла.
В файле текст идёт доупстим тремя строка но в Memo он выводиться одной. Попробовал два варианта перевода строки но компилятор пишет access violation at address. Вопрос как сохранить структуру текста или что я делаю не так? Записываю так же через Memo. При записи 1-ой строки всё хорошо. Вторую строку тоже могу ввести, но если начинаю сразу писать (курсор по базе на новой строке). Если использую энтер то при последующем обращении выдаёт ошибку, выводит текст но уже не даёт сохранить новое значение. Код:
while s[1]<>'#' do begin Memo1.text:=memo1.Text+s; memo1.Text:=memo1.text+#13#10; readln(f,s); end; Код:
while s[1]<>'#' do begin Memo1.lines.Add(s); readln(f,s); end; Код:
procedure TForm3.Button1Click(Sender: TObject); var f,f2:textfile; s:string; prov:boolean; begin assignfile(f,'table\czt.txt'); reset(f); assignfile(f2,'table\temp.txt'); rewrite(f2); prov:=true; while not eof(f) do begin readln(f,s); writeln(f2,s); if copy(s,2,10)=datetostr(data) then begin writeln(f2,memo1.text); writeln(f2,'#'); prov:=false; readln(f,s); while s[1]<>'#' do readln(f,s); end; end; if prov=true then begin writeln(f2,'#'+datetostr(data)); writeln(f2,memo1.text); writeln(f2,'#'); end; closefile(f); closefile(f2); deletefile('table\czt.txt'); renamefile('table\temp.txt','table\czt.txt'); form3.Hide; form1.show; end; содержимое файла после этих действий #19.11.2013 1 2 # p.s. За совет как оптимизировать вставку текста посередине файла не путём записи в левый файл тоже спасибо)) |
#2
|
||||
|
||||
Код:
Memo1.LoadFromFile(...); Memo1.SaveToFile(...); jmp $ ; Happy End! The Cake Is A Lie. |
#3
|
|||
|
|||
Я так понимаю что в таком случае чтение будет всего файла. А мне нужно только часть файла от определённого # до следующего #
|
#4
|
|||
|
|||
Проблему решил. Оказывается не так понял. Он ругался только в том случае если оставались пустые строки. Которые автоматом появлялись при использовании энтера
|