Witam, mam taki problem: jeden program, dwie formy, z pierwszej jest grubszy program, który uzupełnia tablicę i...:
korzystając z procedurki:
procedure tform2.zapis(r:byte);
var plik:textfile;
i,j:byte;
begin
assignfile(plik,'c:/liczby.txt');
rewrite(plik);
for j:=1 to 12 do begin
for i:= 1 to 50 do if ts[r,j,i]<>0 then write(plik,inttostr(i)+':'+inttostr(ts[r,j,i])+'|');
writeln(plik);
end;
closefile(plik);
end;
ślicznie działa:)
ale używając praktycznie tego samego:
procedure tform2.labele2(r:byte);
var i,j:byte;
begin
for j:= 1 to 12 do
for i:=1 to 50 do
begin
bas[j,i]:=tlabel.create(self);
with bas[j,i] do begin
parent:=form2; Left:=23*(i-1)+20; Top:=j*20;
Caption:=inttostr(ts[r,j,i]);
end;
end;
end;
na formie wyskakują same zera... obie procedury są w unicie2, wszystkie tablice są na unicie1.
Podczas zapisywania do notatnika potrafi z pierwszej formatki ściągnąć tablicę na drugą, ale chcąc wyświetlić to w labelach na drugiej formatce, wyskakują same zera...
Ktoś ma pomysł, w czym rzecz?
var:
bas:array[1..12,1..50] of tlabel;
ts:array[1..5,1..12,1..50] of word;
unity są połączone oczywiście, na unit2:
implementation
{$R *.dfm}
uses Unit1;
i odwrotnie.