AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Sprachen und Entwicklungsumgebungen Sonstige Fragen zu Delphi Delphi ntdll.dll Zugriffsverletzung bei ComboBox
Thema durchsuchen
Ansicht
Themen-Optionen

ntdll.dll Zugriffsverletzung bei ComboBox

Ein Thema von SiD · begonnen am 2. Jun 2004 · letzter Beitrag vom 3. Jun 2004
 
SiD

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

ntdll.dll Zugriffsverletzung bei ComboBox

  Alt 2. Jun 2004, 14: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
 


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 16:35 Uhr.
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz