Форум: "Основная";
Текущий архив: 2002.01.08;
Скачать: [xml.tar.bz2];
Внизпомогите Найти похожие ветки
← →
Катя (2001-12-17 16:24) [7]"тута код заполнения "не работает Еще вырианты есть?
На всякий случай приведу код
var
i,n,j:integer;
begin
Form8:=TForm.create(application);
try
n:=1;
for i:=1 to Stringgrid1.Rowcount-1 do begin
if strtoint(Stringgrid1.cells[9,i])=0 then
for j:=1 to n do begin
Form8.Stringgrid1.cells[0,j]:=inttostr(j);
Form8.Stringgrid1.cells[1,j]:=Stringgrid1.cells[1,j];
Form8.Stringgrid1.cells[2,j]:=Stringgrid1.cells[2,j];
Form8.Stringgrid1.cells[3,j]:=Stringgrid1.cells[9,j];
end;end;
Form8.ShowModal;
finally
Form8.free;
end;
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2002.01.08;
Скачать: [xml.tar.bz2];
Память: 0.43 MB
Время: 0.013 c