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




Вниз

StringGrid save 


Gayrus   (2002-01-15 16:51) [0]

Нужно сохранить всю таблицу в одном файле, ну и, конечно, потом загрузить (Ну не создавать же мне пять файлов рядом с одним ехе"шником по семь строчек в каждом! )



SAN   (2002-01-15 16:56) [1]

Простейший вариант сохранять просто в IniFile
[Row1]
Column1="aaaa"
Column2="////"
[row2]
Column3="aaaa"
Column4="////"

Можно через FileStream(BlockRead\BlockWrite) это делать.



Gayrus   (2002-01-15 16:59) [2]

Kak? (Я стримами редко пользуюсь)



davile   (2002-01-15 17:04) [3]

WriteComponentResFile(параметры не помню)



SAN   (2002-01-15 17:19) [4]

Лень объяснять. У тебя судя по всему маленькая таблица - пиши через IniFile



Фе   (2002-01-15 20:33) [5]

TStringGrid - это таблица у которой есть
Cols == i, Rows == j и Cells[i,j]
Пишешь в обычный текст файл
outfile: TextFile;
AssignFile(outfile, "C:\my.txt");
Rewrite(outfile);
Так

В цикле по строкам j
for j=0 to Rows-1

Формируешь строку как
for i:-0 to Cols-1
s:=s + DLM + Cells[i,j] //DLM: char - произваольный разделитель, например, запятая ","

writeln(outfile,s);

..
CloseFile(outfile);
****************
Вот и все, чтение - захочешь - догадаешься.




Фе   (2002-01-15 20:37) [6]

P.S.
Sorry вместо
Cols == i читать ColCount == i
Rows == j читать RowCount == j

А тем кому лень объяснять или "не помню" - лучше в тряпочку молчать.



Gayrus   (2002-01-16 03:05) [7]

Спасиба



Gayrus   (2002-01-16 05:26) [8]

>2 davile
WriteComponentResFile("C:\StrGr.cool", StringGrid1);
Это запись, но у меня ошибка если пытаюсь:
ReadComponentResFile("C:\StrGr.cool", StringGrid1);
Не находит какой-то класс: "class TInplaceEdit not found".



SAN   (2002-01-16 10:48) [9]

>Фе
Лучше ничего не писать, чем все время писать с ОШИБКАМИ.Я подсказал, как можно сделать, а писать всю программу не очень охота.



McSimm   (2002-01-16 10:51) [10]

Вот откопал - уже был такой вопрос и я на него ответил так:
Сам не проверял, но у спросившего все получилось

Надо написать процедуру сохранения и чтения файла.

procedure SaveStringGrid;
var F: TextFile
I, J: Integer;
begin
AssignFile(f,...);
Rewrite(F);
Writeln(F, StringGrid.ColCount);
Writeln(F, StringGrid.RowCount);
for I := 0 to StringGrid.ColCount - 1 do
for J := 0 to StringGrid.RowCount - 1 do
Writeln(F, StringGrid.Cols[I][J]
end


procedure LoadStringGrid;
var F: TextFile
I, J, CI, CJ: Integer;
S: String;
begin
AssignFile(f,...);
Reset(F);
Readln(F, CI);
ReadLn(F, CJ);
for I := 0 to CI - 1 do
begin
StringGrid.Cols[I].Clear;
for J := 0 to CJ - 1 do
begin
Readln(F, S);
StringGrid.Cols[I].Add(S)
end
end
end



Gayrus   (2002-01-17 03:18) [11]

>SAN
Я же не лопух чтоб такого не заметить, так что пишите как можно больше я разберусь :)



SoftOne   (2002-01-17 03:45) [12]

Кстати, RxLib дан нам свыше, не только для бездумного использования, но и, благодаря наличию исходников, для "творческого преобразования".




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




Наверх





Память: 0.74 MB
Время: 0.026 c
1-8888            tormoz                2002-01-16 21:19  2002.02.04  
Как добавить определённую иконку в SysImageList?


4-9033            Mr.Death              2001-11-22 08:59  2002.02.04  
Как перехватить вперед системы сочетание Сtrl+Alt+Del из под WIN2000/XP


3-8785            Niky                  2002-01-05 09:01  2002.02.04  
excel


1-8907            petyun                2002-01-17 10:04  2002.02.04  
строка в ListBox как в плей-листе WinAmp


1-8842            Nicolas_              2002-01-14 17:41  2002.02.04  
Dock n drop Как убрать кнопку с заголовка прилепленного окна?