Форум: "Основная";
Текущий архив: 2002.01.17;
Скачать: [xml.tar.bz2];

Вниз

Не, ну вообще прикл...   Найти похожие ветки 

← →
VitHouse   (2001-12-28 06:59) [29]

По моему, стандартные решения Дельфи этой проблемы здесь не подайдут!А вот такой пример записи файла (как HTML)

Monitor(Name="Samsung", Size="17", Class="AA");
Computer(Proc="Pentium IV", MHZ="1400");

При этом сделать новую структуру типу чтения скриптофункции:

TScryptoFunc = record
Name: string;
ArrayOfParamNames: array of string;
ArrayOfValueParams: array of string;
end;


И при чтении строки из скриптофайла создается переменная типа TScryptoFunc
Читаем строку Monitor(Name="Samsung", Size="17", Class="AA");
Получаем

var
ReadSF: TScryptoFunc
begin
ReadSF := ReadStringToTScryptoFunc( "Monitor(Name="Samsung", Size="17", Class="AA");");
//получаем
ReadSF.Name = "Monitor";
ReadSF.ArrayOfParamNames = ("Name", "Size", Class);
ReadSF.ArrayOfValueParams = ("Samsung", "17", "AA");

Ну и вроде работает.
Потом Сструктуру TScryptoFunc переганять в свои массивы:

case ReadSF.Name of
"Moniror": AddMonitor(ReadSF);
"Computer": AddComputer(ReadSF);
end;

А там дело указателей к элементам)
Далее, строгая структура (типа таблиц),и корректное сохранение в файл.

Жду мнений)

---

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

Форум: "Основная";
Текущий архив: 2002.01.17;
Скачать: [xml.tar.bz2];

Наверх

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