Вопрос по Delphi (срочно)

[Vaston]

Помогите, если кто сможет и кому не лень!

Задали курсовую по Delphi, как делать не знаю...

Необходимо создать текстовую базу данный (в TXT формате) "Автоматизированной системы управления для Автотранспортного предприятия".
Всего необходимо связать две таблицы.

Состав таблицы 1:

Порядковый номер,Производитель,Наименование товара,Вес товара(кг.),Количество,Дата поставки,Цена(руб.)

Cостав таблицы 2:

Порядковый номер,Производитель,Наименование товара,Вес товара,Количество

В задачах стоит такой пункт:

Распечатать таблицу заявок от заданного заказчика, дополнив её суммарной стоимостью всех заказанных товаров

Заранее большое спасибо спасителю....

 

[Player]

так читай про файлы в книжке там все есть. или ты даже синтаксис не знаешь?

 

[Ognev]

Первый раз слышу про ТЕКСТОВЫЕ базы данных. И чем, интересно, можно связать ТЕКСТОВЫЕ ТАБЛИЦЫ (интересно, как это будет реализовано)? Все это очень похоже на бред (imho).

 

[jet800]

Csv :d $)))

 

[Vaston]

для начала надо значения текстового файла помесить в компонент Table, а как это сделать пока не знаю, подскажите кто нить??

И надо ли использовать вообще компоненты datasourece и dbgrid???

 

[Vaston]

в текстовом файле следующее:
Порядковый_номер Производитель Наименование_товара Вес_товара(кг.) Количеств Дата_поставки Цена(руб.)

хочу прочитать для начала "Порядковый_номер", а у меня читается вся строка
как сделать ???? подскажите плиззз

 

[jet800]

Читешь строку, а в текстовом файле поставь разделители - в принципе и пробле можно, но оно может и в тексте встретиться. Затем делаешь парсинг строки. Дельфа какая? Под какую платформу под .NET или под Win32?

 

[Vaston]

А какой разделитель(или что в качестве разделителя) использовать

Что значит делаешь парсинг строки???

Delphi7 под win32

 

[jet800]

Ну ИМХО - lzk разделителя отлично годится ";", поставь два символа на крайняк какие точно не встретятся в тексте подряд скажем: &;. Вот те и вся наука. Парсинг - обработка. Суть такая:
нашёл первый разделитель в строке - символы и з строки с 1го по n найденного - это порядковый номер, записал в массив, удалил из строки эти символы, нашёл следующий разделитель символы с 1 по n - Производитель и т.д. для всех. И всё в цикл repeat until EOF();
Сам код писать лень - если знаешь дельфу хоть немного напишешь сам.

 

[Msha]

А почему эта тема не в разделе ''прикладное программирование''?

 

[Vaston]

я, к сожалению не нашел где можно было эту тему создать,
перенесите, если это не сложно....

 

[Vaston]

Вопрос следующий:
создаю некую переменную "a:string"
Открываю, все как положено файл, читаю строку (readln). Получается следующее что в переменой "a" у меня первая строка текстового файла, т.е. другими словами шапка таблицы.

Как мне сейчас по файлу то перемещаться??? т.е. делать обработку???

 

[jet800]

Блин ну ты вообще дуб или как?

repeat
readln();
{а тут обработка строки.}
until EOF();

ну параметры соотвественно переменным своим расставляешь.
Еще в принципе понадобится добавить счётчик, чтобы знать строку с каким номером читаешь.

 

[maidan]

Проще использовать TSringlist, вот пример

procedure additem(filename,value:string);
var list:tstringlist;
begin
list:=tstringlist.Create;
list.LoadFromFile(filename);
list.add(value);
end;

Доступ к любой строчке

list.items[_Nomer_stroki]

Больше в хелпе по Delphi читай!!!

 

[jet800]

Тоже метод