Скачать: CL | DM;

Сохрание форматированной информации.   Найти похожие ветки 

← →
jimmk   (2007-01-25 23:14) [0]

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

   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);

---

← →
SlymRO   (2007-01-26 07:12) [1]

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

---

← →
unknown ©   (2007-01-26 07:39) [2]

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

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.03 c