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




Вниз

StringGrid 


21333   (2002-03-04 21:19) [0]

Как сохранить данные StringGrid"а в собственном формате ? Желательно полный пример. Спасибо !!!



Anatoly Podgoretsky   (2002-03-04 21:47) [1]

Пример, без спецификации на этот собственный формат?
Шутишь, не телепаты же.



lipskiy   (2002-03-05 00:28) [2]

Если этот собственный формат любой - то проще всего текстовик с разделителями. Пишешь два цикла - верхний по строкам, вложенный по столбцам. Во вложенном собираешь из ячеек строки грида стринг с разделителями и пишешь в текстовик. При чтении делаешь парсинг прочитанной строки - разбиваешь ее на ячейки по признаку разделителя и кидаешь в таблицу. В этом варианте есть ограничение - текст ячейки не может содержать символ разделителя, либо, более сложный, но реальный вариант - как это делает, к примеру Excel при сохранении таблицы в файл с разделителями *.csv, там этого ограничения нет, но парсинг сложнее. Можешь сам посмотреть - все поймешь.



MBo   (2002-03-05 08:29) [3]

один из методов
procedure TForm1.Button4Click(Sender: TObject);
var fs:tfilestream;
i,l:integer;
s:string;
begin
fs:=tfilestream.create("e:\sgsave2.dat",fmCreate);
with sg1 do begin
fs.write(RowCount,SizeOf(Integer));
fs.write(ColCount,SizeOf(Integer));
for i:=0 to rowcount-1 do begin
s:=Rows[i].Text;
l:=length(s);
fs.write(l,SizeOf(Integer));
if Length(s)>0 then fs.write(s[1],l);
end;
end;
fs.free;
end;

procedure TForm1.Button5Click(Sender: TObject);
var fs:tfilestream;
i,l:integer;
s:string;
begin
fs:=tfilestream.create("e:\sgsave2.dat",fmOpenRead);
with sg1 do begin
fs.read(l,SizeOf(Integer));
rowcount:=l;
fs.read(l,SizeOf(Integer));
colcount:=l;
for i:=0 to RowCount-1 do begin
fs.read(l,SizeOf(Integer));
if l>0 then begin
setlength(s,l);
fs.read(s[1],l);
Rows[i].Text:=s;
end;
end;
end;
fs.free;
end;



alexandervasjuk   (2002-03-05 16:45) [4]

Я бы пользовался
StringGrid1.Rows[i].CommaText




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




Наверх





Память: 0.72 MB
Время: 0.016 c
1-66927           Aleksandr             2002-03-06 14:10  2002.03.21  
Как врезать Define в проект?


3-66774           amamed_3071           2002-02-21 14:57  2002.03.21  
Как увеличит TimeOut в AdoConnection


3-66727           Yephim                2002-02-20 09:52  2002.03.21  
Как через ADO подключится к текстовому файлу?


3-66788           [NIKEL]               2002-02-20 11:01  2002.03.21  
Определение времени исполнения запросов


3-66769           Markov D.             2002-02-21 19:00  2002.03.21  
Midas / SocketConnection