Ich verstehe nichts mehr....
Habe ein neues Projekt erstellt, drücke ich auf den Button erscheint die Meldung "ok".
Delphi-Quellcode:
private
{ Private-Deklarationen }
SendeListe : TStringList;
public
{ Public-Deklarationen }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
if SendeListe.Count > 0
then ShowMessage('falsch')
else ShowMessage('ok')
end;
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
if SendeListe <> nil
then SendeListe.Free;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
SendeListe := TStringList.Create;
end;
In einem anderen Projekt habe ich ähnliches. Hier erhalte ich allerdings eine
Exception die ich nicht verstehe.
Ich habe hier mal den Code auf den Button wo es passiert verkürzt:
Delphi-Quellcode:
private
{ Private-Deklarationen }
SendeListe : TStringList;
public
{ Public-Deklarationen }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
SendeListe := TStringList.Create;
if SendeListe.Count > 0
then ShowMessage('falsch')
else ShowMessage('ok')
end;
sobald ich auf den Button drücke erhalte ich bei Zeile: "if SendeListe.Count > 0" eine
Exception.
---------------------------
Benachrichtigung über Debugger-
Exception
---------------------------
Im Projekt SoUndSo.exe ist eine
Exception der Klasse $C0000005 mit der Meldung '
access violation at 0x00700bfd: read of address 0x02000041' aufgetreten.
---------------------------
Anhalten Fortsetzen Hilfe
---------------------------
Der Debugger spuckt über dem "count" als Meldung "Ungültiger Ausdruck im Evaluator" aus.
Gibt es irgendwelche Projektdateien die man löschen kann damit dieser nicht vorhandene Fehler verschwindet.
Neustart: Delphi, Rechner hat nichts gebracht.
Ich verstehe leider nichts mehr.
