| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Сохрание форматированной информации. [D6, 2000]

jimmk ©   (2007-01-25 23:14:00) 

Здравствуйте. У меня есть некторый массив записей:

   TResult = record
     UserName: string;
     UserPhone: string;
     UserType: Byte;
     UserAccountType: Byte;
   end;

   var
     ResultsList: array of TResult;

    И мне необходимо сохранить из этого массива записей всю информацию в файл построчно, ну т.е.
    "UserName:UserPhone:UserType:UserAccountType", но необходимо предусмотерть возможность пользователю предоставить выбора формата записи в файл, т.е. есть дополнительный edit, в котором пользователь вводит свой формат данных, например: "%UserType%,%UserName%,%UserPhone%..." и в таком порядке и количестве они записываются в файл. Как подобное действие хорошо, грамотно и быстро организовать?

    Сейчас в файл записываю приблизительно таким образом:
    var
      ResultsTxtFile: textfile;
    begin
      AssignFile(ResultsTxtFile, ExtractFilePath(ParamStr(0)) + 'Results.txt');
     {$i-}
     Append(ResultsTxtFile);
     {$i+}
     if IOResult <> 0  then Rewrite(ResultsTxtFile);
     for i := Low(ResultsList) to High(ResultsList) do
       with ResultsList do
         WriteLn(ResultsList, Format('%s;......', [UserName, UserPhone, ...]));
       CloseFile(f1);

---

unknown   (2007-01-26 07:39:00) [1]

> Как подобное действие хорошо, грамотно и быстро организовать?

Предусмотреть заголовки для столбцов.

---

SlymRO   (2007-01-26 07:12:00) [2]

Предвосхищая следующий вопрос...
А как теперь загрузить, если формат может быть разным?

---

Наверх