Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 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 дан нам свыше, не только для бездумного использования, но и, благодаря наличию исходников, для "творческого преобразования".



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

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

Наверх





Память: 0.46 MB
Время: 0.075 c
1-8833
Lizard
2002-01-20 15:04
2002.02.04
Как отключить таймер (Timer1) ?


1-8919
Alku
2002-01-17 14:36
2002.02.04
Как в программе получить Handle запускаемой из нее подпрограммы?


1-8944
Сержик
2002-01-18 09:48
2002.02.04
Как подменить exe-шник из него самого?


1-8849
Ser_Kham1
2002-01-21 09:43
2002.02.04
HWND


7-9007
gunner
2001-10-25 18:30
2002.02.04
Работа с MCI устройством.... !





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский