Главная страница

Форум: "Основная";
Поиск по всему сайту: 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];



Наверх

   Главная страница

Top.Mail.Ru     Яндекс.Метрика













Память: 0.77 MB
Время: 0.032 c
1-8875
Rust_br
2002-01-16 13:27
2002.02.04
Проблема с Caption ом у MDIChild а


1-8886
Dmitriy_R
2002-01-15 13:51
2002.02.04
Генерация случайного числа в диапазоне 30......90


6-8967
Burmistroff
2001-11-10 20:28
2002.02.04
Как узнать, прослушивается ли уже данный порт?


1-8894
Ольга
2002-01-16 14:01
2002.02.04
Инсталлятор


3-8803
навичек
2002-01-03 11:07
2002.02.04
Мож кто знает че это за ошибка?





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский