ich hab jetzt nur l genommen und gebe überall eine 1 ein und bekomme eine 0
also füllt er das array gar nicht mit die zahlen.. oder meine ausgabe ist falsch??
Delphi-Quellcode:
type
TB = class
l:integer;
end;
var x: array[1..10] of TB;
rocedure TForm2.FormCreate(Sender: TObject);
var i: integer;
begin
stringgrid1.cells[0,0]:='l';
for i := 0 to 10 do
x[i] := TB.Create;
end;
rocedure TForm2.Button1Click(Sender: TObject);
var i: integer;
begin
for i := 1 to 10 do
x[i].l := StrToIntdef(StringGrid1.Cells[i,0],0);
memo1.Lines.Add(inttostr(x[1].l));
end;
end.