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

Вниз

StringGrid save   Найти похожие ветки 

← →
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

---

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

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

Наверх

Память: 0.43 MB
Время: 0.005 c