Stringgrid befüllen > massives Timingproblem

[richard_boderich]

ok sharky hier ist der code

Delphi-Quellcode:

procedure Ausgabe();

begin

i:=0;
c:=0;


while i<=1408 do
begin

form1.stringgrid4.Cells[0,c]:=inttohex(filepos(f),16); {hexpos} // fehler : ich weiß muss inttohex(filepos(f)+i,16) 

form1.stringgrid5.Cells[1,c]:=inttohex(matrix[i],2);
form1.stringgrid5.Cells[2,c]:=inttohex(matrix[i+1],2);
form1.stringgrid5.Cells[3,c]:=inttohex(matrix[i+2],2);
form1.stringgrid5.Cells[4,c]:=inttohex(matrix[i+3],2);
form1.stringgrid5.Cells[5,c]:=inttohex(matrix[i+4],2);
form1.stringgrid5.Cells[6,c]:=inttohex(matrix[i+5],2);
form1.stringgrid5.Cells[7,c]:=inttohex(matrix[i+6],2);
form1.stringgrid5.Cells[8,c]:=inttohex(matrix[i+7],2);

//form1.stringgrid5.Cells[9,c]:='  -  ';

form1.stringgrid5.Cells[10,c]:=inttohex(matrix[i+8],2);
form1.stringgrid5.Cells[11,c]:=inttohex(matrix[i+9],2);
form1.stringgrid5.Cells[12,c]:=inttohex(matrix[i+10],2);
form1.stringgrid5.Cells[13,c]:=inttohex(matrix[i+11],2);
form1.stringgrid5.Cells[14,c]:=inttohex(matrix[i+12],2);
form1.stringgrid5.Cells[15,c]:=inttohex(matrix[i+13],2);
form1.stringgrid5.Cells[16,c]:=inttohex(matrix[i+14],2);
form1.stringgrid5.Cells[17,c]:=inttohex(matrix[i+15],2);

//form1.stringgrid5.Cells[18,c]:='  -  ';

form1.stringgrid5.Cells[19,c]:=inttohex(matrix[i+16],2);
form1.stringgrid5.Cells[20,c]:=inttohex(matrix[i+17],2);
form1.stringgrid5.Cells[21,c]:=inttohex(matrix[i+18],2);
form1.stringgrid5.Cells[22,c]:=inttohex(matrix[i+19],2);
form1.stringgrid5.Cells[23,c]:=inttohex(matrix[i+20],2);
form1.stringgrid5.Cells[24,c]:=inttohex(matrix[i+21],2);
form1.stringgrid5.Cells[25,c]:=inttohex(matrix[i+22],2);
form1.stringgrid5.Cells[26,c]:=inttohex(matrix[i+23],2);

//form1.stringgrid5.Cells[27,c]:='  -  ';

form1.stringgrid5.Cells[28,c]:=inttohex(matrix[i+24],2);
form1.stringgrid5.Cells[29,c]:=inttohex(matrix[i+25],2);
form1.stringgrid5.Cells[30,c]:=inttohex(matrix[i+26],2);
form1.stringgrid5.Cells[31,c]:=inttohex(matrix[i+27],2);
form1.stringgrid5.Cells[32,c]:=inttohex(matrix[i+28],2);
form1.stringgrid5.Cells[33,c]:=inttohex(matrix[i+29],2);
form1.stringgrid5.Cells[34,c]:=inttohex(matrix[i+30],2);
form1.stringgrid5.Cells[35,c]:=inttohex(matrix[i+31],2);



 {asc anzeige }
temp0:=matrix[i];
temp1:=matrix[i+1];
temp2:=matrix[i+2];
temp3:=matrix[i+3];
temp4:=matrix[i+4];
temp5:=matrix[i+5];
temp6:=matrix[i+6];
temp7:=matrix[i+7];
temp8:=matrix[i+8];
temp9:=matrix[i+9];
temp10:=matrix[i+10];
temp11:=matrix[i+11];
temp12:=matrix[i+12];
temp13:=matrix[i+13];
temp14:=matrix[i+14];
temp15:=matrix[i+15];
temp16:=matrix[i+16];
temp17:=matrix[i+17];
temp18:=matrix[i+18];
temp19:=matrix[i+19];
temp20:=matrix[i+20];
temp21:=matrix[i+21];
temp22:=matrix[i+22];
temp23:=matrix[i+23];
temp24:=matrix[i+24];
temp25:=matrix[i+25];
temp26:=matrix[i+26];
temp27:=matrix[i+27];
temp28:=matrix[i+28];
temp29:=matrix[i+29];
temp30:=matrix[i+30];
temp31:=matrix[i+31];


if temp0 < 21 then temp0:=46;
if temp1< 21 then temp1:=46;
if temp2< 21 then temp2:=46;
if temp3<21 then temp3:=46;
if temp4<21 then temp4:=46;
if temp5<21 then temp5:=46;
if temp6<21 then temp6:=46;
if temp7<32 then temp7:=46;
if temp8<32 then temp8:=46;
if temp9<32 then temp9:=46;
if temp10<32 then temp10:=46;
if temp11<32 then temp11:=46;
if temp12<32 then temp12:=46;
if temp13<32 then temp13:=46;
if temp14<32 then temp14:=46;
if temp15<32 then temp15:=46;
if temp16< 32 then temp16:=46;
if temp17< 32 then temp17:=46;
if temp18< 32 then temp18:=46;
if temp19<32 then temp19:=46;
if temp20<32 then temp20:=46;
if temp21<32 then temp21:=46;
if temp22<32 then temp22:=46;
if temp23<32 then temp23:=46;
if temp24<32 then temp24:=46;
if temp25<32 then temp25:=46;
if temp26<32 then temp26:=46;
if temp27<32 then temp27:=46;
if temp28<32 then temp28:=46;
if temp29<32 then temp29:=46;
if temp30<32 then temp30:=46;
if temp31<32 then temp31:=46;



form1.stringgrid6.Cells[1,c]:=chr(temp0);
form1.stringgrid6.Cells[2,c]:=chr(temp1);
form1.stringgrid6.Cells[3,c]:=chr(temp2);
form1.stringgrid6.Cells[4,c]:=chr(temp3);
form1.stringgrid6.Cells[5,c]:=chr(temp4);
form1.stringgrid6.Cells[6,c]:=chr(temp5);
form1.stringgrid6.Cells[7,c]:=chr(temp6);
form1.stringgrid6.Cells[8,c]:=chr(temp7);
form1.stringgrid6.Cells[9,c]:=chr(temp8);
form1.stringgrid6.Cells[10,c]:=chr(temp9);
form1.stringgrid6.Cells[11,c]:=chr(temp10);
form1.stringgrid6.Cells[12,c]:=chr(temp11);
form1.stringgrid6.Cells[13,c]:=chr(temp12);
form1.stringgrid6.Cells[14,c]:=chr(temp13);
form1.stringgrid6.Cells[15,c]:=chr(temp14);
form1.stringgrid6.Cells[16,c]:=chr(temp15);
form1.stringgrid6.Cells[17,c]:=chr(temp16);
form1.stringgrid6.Cells[18,c]:=chr(temp17);
form1.stringgrid6.Cells[19,c]:=chr(temp18);
form1.stringgrid6.Cells[20,c]:=chr(temp19);
form1.stringgrid6.Cells[21,c]:=chr(temp20);
form1.stringgrid6.Cells[22,c]:=chr(temp21);
form1.stringgrid6.Cells[23,c]:=chr(temp22);
form1.stringgrid6.Cells[24,c]:=chr(temp23);
form1.stringgrid6.Cells[25,c]:=chr(temp24);
form1.stringgrid6.Cells[26,c]:=chr(temp25);
form1.stringgrid6.Cells[27,c]:=chr(temp26);
form1.stringgrid6.Cells[28,c]:=chr(temp27);
form1.stringgrid6.Cells[29,c]:=chr(temp28);
form1.stringgrid6.Cells[30,c]:=chr(temp29);
form1.stringgrid6.Cells[31,c]:=chr(temp30);
form1.stringgrid6.Cells[32,c]:=chr(temp31);

inc(i,32);
inc(c,1);
end;
end;