Сохранение историй из TMemo

[VirtUX]

Я делал "логи" таким способом:
Имеем: TEdit и TListBox (для однострочных команд, для многострочных - вместо TEdit берем TMemo)
Действие: пишем в TEdit (TMemo) команду и по (OnKeyPress |if ord(Key)=13 then|) добавлял дату со временем (S := DateTimeToStr(Now) + TEdit.Text;) в TListBox для текущего отображения истории или сразу катаем в текстовый файл. Можно катать и в типизированный в виде record типа:

Код: Выделить всё

type 
  TLogFile = record
                     RDateTime: TDateTime;
                     RCom: string;
                  end;

var
  f: file of TLogFile;

Можно и одновременно в список и в файл. Причем тип файла и метод записи - не важен. Главное, чтоб была инфа о времени действия и "тело" самого действия...

[GAMER]

Я делал "логи" таким способом:
TLogFile = record
RDateTime: TDateTime;
RCom: string;
end;

var
f: file of TLogFile;

Для Edit годится, а в Мемо не всегда string есть. Там может быть несколько строчек.

[Mr.Smart]

Я делал "логи" таким способом:
TLogFile = record
RDateTime: TDateTime;
RCom: string;
end;

var
f: file of TLogFile;

Для Edit годится, а в Мемо не всегда string есть. Там может быть несколько строчек.

Добавь поле с позицией
Ближние строки склеивай

[GAMER]

Решил сохранять Мемо в ячейки СтрингГрид, а сам СтрингГрид сохраняю в файл. Перемещение по истории - перемещение по ячейкам. Один минус (или я что-то не понял) - файл не хранит количество ячеек СтрингГрида.

[GAMER]

Результат трудов можно посмотреть здесь: http://www.freepascal.ru/forum/viewtopic.php?f=10&t=3868