Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.02.04;
Скачать: CL | DM;

Вниз

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 дан нам свыше, не только для бездумного использования, но и, благодаря наличию исходников, для "творческого преобразования".



Страницы: 1 вся ветка

Текущий архив: 2002.02.04;
Скачать: CL | DM;

Наверх




Память: 0.49 MB
Время: 0.011 c
1-8910
Eraser
2002-01-16 10:59
2002.02.04
потоки текут-2 или получилось наполовину


1-8855
asdf
2002-01-20 23:36
2002.02.04
Как сделать так, чтобы один из Tabsheet-ов в pagecontrole стал disabled?


3-8765
Павел Козловский
2002-01-02 15:00
2002.02.04
Смена языка таблиц Paradox


1-8948
Forrest1
2002-01-18 14:25
2002.02.04
Как вызвать Макрос из Excel


3-8791
Agent Smith
2002-01-08 14:44
2002.02.04
Работа с файлами