Einzelnen Beitrag anzeigen

SiD

Registriert seit: 17. Jul 2003
52 Beiträge
 
#1

ntdll.dll Zugriffsverletzung bei ComboBox

  Alt 2. Jun 2004, 15:27
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;
  Mit Zitat antworten Zitat