Hallo ich mus noch dazui sagen dass ich ein totaler anfänger mit delphi bin
Bitte sagt mir mal wie ich verhindere dass er die anderen werte überschreibt
danke schonmal im voraus ^^
Delphi-Quellcode:
var i,z:byte;
begin
for i:=0 to 30 do
z:=random (31);
if Stringgrid1.Cells[i,0]='' then
begin
stringgrid1.cells[z,0]:='A1';
stringgrid1.cells[z,0]:='A2';
stringgrid1.cells[z,0]:='A3';
stringgrid1.cells[z,0]:='A4';
stringgrid1.cells[z,0]:='B1';
stringgrid1.cells[z,0]:='B2';
stringgrid1.cells[z,0]:='B3';
stringgrid1.cells[z,0]:='B4';
stringgrid1.cells[z,0]:='C1';
stringgrid1.cells[z,0]:='C2';
stringgrid1.cells[z,0]:='C3';
stringgrid1.cells[z,0]:='C4';
end;
end;