procedure TForm1.Button2Click(Sender: TObject);var temp: string;count, i, y: integer;MyReport: array of array of string;begintemp:= 'SELECT afatablefrim.Land, afatablefrim.Post, afatablefrim.Nummer, ';temp:= temp + ...temp:= temp + 'afatablefrim.Nummer, afatablefrim.Type, afatablefrim.Postfrisk;';If SQLQuery1.Active = true then SQLQuery1.Active:= false;SQLQuery1.SQL.Clear;SQLQuery1.SQL.Add(temp);SQLQuery1.ExecSQL;If SQLQuery1.Active = false then SQLQuery1.Active:= true;count:= 0;While Not(SQLQuery1.Eof) do begin count:= count + 1; SQLQuery1.Next; end;Showmessage ( IntToStr(count));SetLength(MyReport,count,12);If SQLQuery1.Active = true then SQLQuery1.Active:= false;SQLQuery1.SQL.Clear;SQLQuery1.SQL.Add(temp);SQLQuery1.ExecSQL;i:= 0;While Not(SQLQuery1.Eof) do begin MyReport[i,0]:= SQLQuery1.Fields[0].asstring; MyReport[i,1]:= SQLQuery1.Fields[1].asstring; MyReport[i,2]:= SQLQuery1.Fields[2].asstring; MyReport[i,3]:= SQLQuery1.Fields[3].asstring; MyReport[i,4]:= SQLQuery1.Fields[4].asstring; MyReport[i,5]:= SQLQuery1.Fields[5].asstring; MyReport[i,6]:= SQLQuery1.Fields[6].asstring; MyReport[i,7]:= SQLQuery1.Fields[7].asstring; MyReport[i,8]:= SQLQuery1.Fields[8].asstring; MyReport[i,9]:= SQLQuery1.Fields[9].asstring; MyReport[i,10]:= SQLQuery1.Fields[10].asstring; MyReport[i,11]:= SQLQuery1.Fields[11].asstring; MyReport[i,12]:= SQLQuery1.Fields[12].asstring; i:= i + 1; SQLQuery1.Next; end;Memo1.Lines.Clear;temp := MyReport[0,0];showmessage ( temp);
exception class 'External: SIGSEGV' At adress 403E21
00403E21 833a00 cmpl $0x0,(%edx)