Текущий архив: 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.007 c
