Hallo Leute!
Habe ein Problem mit einer norm. ComboBox. Wenn ich sie aufmache und den Scrollbalken bewege bekommen ich eine ntdll.dll Zugrifsverletzung…. HILFE.
Was komisch ist, das passiert nicht bei jeder Combobox.
hier mein Beispiel:
Delphi-Quellcode:
Privat
sLand_id:TStrings;
..
..
..
//cbo Laden
procedure cbo_Laden;
var
sTemp:TStrings;
begin
sTemp:= Nil;
try
sLand_id:=TStringList.Create;
sTemp:=TStringlist.Create;
Standard_Lesen_Laenderkennung(sTemp, sLand_id, false);
cboLand.Items.Clear;
finally
sTemp.Free;
end;
//Ende
procedure TfrmFenster.FormClose(Sender: TObject;
var Action: TCloseAction);
begin
sLand_id.Free;
frmFenster:= Nil;
Action:= CaFree;
end;
function Standard_Lesen_Laenderkennung(Laenderkennung, Laenderkennung_id:TStrings;Leerzeile:boolean):integer;
begin
Result:= 0;
Try
If Laenderkennung <>NIL then begin
Laenderkennung.Clear;
If Leerzeile then Laenderkennung.Add('');
end;
If Laenderkennung_id<>NIL then begin
Laenderkennung_id.Clear;
If Leerzeile then Laenderkennung_id.Add('0');
end;
try
With frmDatamodul.fsel_Land do begin
Close;
Open;
While not Eof do begin
If Laenderkennung<>NIL then Laenderkennung.Add(FieldByName('Laenderkennung').AsString);
If Laenderkennung_id<>NIL then Laenderkennung_id.Add(FieldByName('Land_id').AsString);
next;
end;
Close;
end;
finally
frmDatamodul.dbConnection.Connected:= false;
end;
except
//Fehler
Result:=-1;
exit;
end;
end;