Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 13.10.2013, 18:48   #1
dimka18
Новичок
Джуниор
 
Регистрация: 13.10.2013
Сообщений: 2
По умолчанию Сохранение StringGrid в файл .dat

Тема, как бы элементарная, но сам в шоке был, когда понял что не могу задать имя сохраняемого файла.
Имя сохраняемого файла напрямую зависит от значения трех ComboBox. Ниже код сохранения со статичным именем test.dat, как его преобразовать под мои нужды? Структура имени создаваемого файла должна быть примерно такая: имя файла = combobox1.items+'_'+combobox2.items +'_'+combobox3.items .dat/.txt
Код:
Type
Save_str=record
col_col:integer;
col_row:integer;
value:string[255];
end;
 
 
var
F:File of Save_str;
i,j:Integer;
Str:Save_str;
begin
try
AssignFile(F, 'test.dat');
Rewrite(F);
Str.col_col:=SG1.ColCount;
Str.col_row:=SG1.RowCount;
for i:=0 to SG1.RowCount-1 do
begin
for j:=0 to SG1.ColCount-1 do
begin
Str.value:=SG1.Cells[j,i];
Write(F,Str);
end;
end;
CloseFile(F);
except
on e:Exception do
end;
dimka18 вне форума Ответить с цитированием
Старый 13.10.2013, 20:19   #2
Человек_Борща
Старожил
 
Аватар для Человек_Борща
 
Регистрация: 30.12.2009
Сообщений: 11,426
По умолчанию

А чем вам CSV формат не нравится?
Колонка1;Колонка2;Колонка3;Колонка4 ;
1;2;3;4;
1;;3;4;
;2;3;4; и т.д.
Человек_Борща вне форума Ответить с цитированием
Старый 13.10.2013, 20:28   #3
northener
ПШП
Участник клуба
 
Регистрация: 15.07.2013
Сообщений: 1,872
По умолчанию

Цитата:
А чем вам CSV формат не нравится?
Если дашь автору готовый код, ему что угодно понравится. А пока он не может переделать содранный отсюда http://devdelphi.ru/?p=142 код под свои нужды. Но и признаваться в этом не хочет.
northener вне форума Ответить с цитированием
Старый 13.10.2013, 20:33   #4
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,097
По умолчанию

Код:
AssignFile(F, combobox1.text+'_'+combobox2.text+'_'+combobox3.text+'.dat/.txt');
P.S. Шутку с расширением прошу воспринимать как шутку.
I'm learning to live...
Stilet вне форума Ответить с цитированием
Старый 13.10.2013, 21:14   #5
Человек_Борща
Старожил
 
Аватар для Человек_Борща
 
Регистрация: 30.12.2009
Сообщений: 11,426
По умолчанию

northener, Ну пожелаем ему удачи

P.S. автор того сайта, так же велосипеды придумывает. CSV и придуман чтобы таблицы сохранять.
Человек_Борща вне форума Ответить с цитированием
Старый 14.10.2013, 02:50   #6
northener
ПШП
Участник клуба
 
Регистрация: 15.07.2013
Сообщений: 1,872
По умолчанию

Цитата:
Сообщение от Человек_Борща Посмотреть сообщение
northener, Ну пожелаем ему удачи
P.S. автор того сайта, так же велосипеды придумывает.
Это уже даже не просто велосипеды. Это велосипеды с квадратными колесами. Записывать в файл вместе с каждой ячейкой грида общее количество строк и столбцов мог придумать только троешник.
northener вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
*.dat файл sergio1984 Помощь студентам 1 06.08.2013 23:28
StringGrid Сохранение в файл в виде таблицы. werrey Общие вопросы Delphi 11 23.04.2012 12:39
сохранение StringGrid в нетип. файл. Delphi PianeR Помощь студентам 0 31.01.2011 20:39
dat файл Fottak Помощь студентам 2 15.02.2010 15:29
dat файл ben95 Свободное общение 2 24.03.2008 09:12