![]() |
|
|
|||||||
| Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
![]() |
|
|
Опции темы | Поиск в этой теме | Опции просмотра |
|
#1
|
||||
|
||||
|
В общем, у меня таблица из etitов, мне нужно сохранить данные из них в фаил. Как это сделать??? Помоготе
![]() |
|
#2
|
||||
|
||||
|
Я бы создал запись вида
Код:
TData= record; Edit1: String[50];//Для String обязятелен размер в символах Edit2: String[50]; //И так далее end; Код:
var
f: File of TData;
d: TData;
begin
//Заполнение записи
d.Edit1 := Edit1.Text;
d.Edit2 := Edit2.Text;
//Запись записи в файл ))) тафталогия получилась
AssignFile(f, D:\Data.dat);
{$I-}
try
ReSet(f);//Пытаемся открыть существующий
{$I+}
if IOResult <> 0 then//Если его нет
ReWrite(f);//Создаем новый
Seek(f, FileSize(f));//Устанавливаем запись в конец файла
Write(f, d);//Записываем запись
finally
Close(f);//Закрываем файл
end;
end;Последний раз редактировалось NIch, 15.04.2010 в 09:33. |
|
#3
|
||||
|
||||
|
хм... а если я несколько раз сохранять буду, то фаил будет перезаписываться??? Мне надо, чтобы при сохранении создавался новый фаил и пользователь мог дать ему имя, а при необходимости открыть этот фаил, т.е. что бы он открылся опять как табличка))) вот....
Последний раз редактировалось Kalibry, 15.04.2010 в 10:02. |
|
#4
|
||||
|
||||
|
что значит таблица из editoв? зачем делать из них таблицу если можно поставить компонент stringgrid
![]() и может лучше в файл экселя? |
|
#6
|
||||
|
||||
|
тебе надо что бы именно такая таблица отображалась на форме программы? или просто заполнить это файл?
если 2-ое то просто надо попариться с индексами i и j когда идет запись в файл. |
|
#7
|
||||
|
||||
|
Это отчет по месяцам, мне нужно, чтобы пользователь мог создать отчет за любой месяц, сохранить его и при необходимисти открыть отчет за любой месяц. Можно это конечно всё в Excel сделать, но такая вот дипломная работа((((
|
|
#8
|
||||
|
||||
|
какие данные пользователь должен вводить в программе?
напиши или нарисуй что должно быть в программе и я постараюсь тебе помочь, на работе все равно делать нечего ![]() |
|
#9
|
||||
|
||||
|
Выше посмотри архив 2.rar, там фаил Excel, на первом листе табличка... Последние три строчки должны расчитываться по формулам...
|
|
#10
|
||||
|
||||
|
вот что-то навоял
примечания: из проги данные вставляются в эксель и считаются по формуле которая уже вбита в экселе может не совсем то что надо но думаю натолкнет на мысли ![]() Последний раз редактировалось friz, 15.04.2010 в 12:01. |
|
#11
|
||||
|
||||
|
Нет, мне не то надо
Может подскажешь, как из Editов сохранять в фаил(их может быть много), а при необходимости открыть любой фаил... |
|
#12
|
||||
|
||||
|
вот уж эти девушки никогда не поймешь с первого раза чего они хотят
![]() вот такой вариант, довольно простой |
|
#13
|
||||
|
||||
|
Ну вот такие мы)))
![]() |
|
#14
|
||||
|
||||
|
Еще вопросик, я скачать архив этот не могу((( Download Master выдаёт ошибку
|
|
#15
|
||||
|
||||
|
программу кстати можно модифицировать, на случай если число editov не известно. если надо то могу скинуть исходник
|