• Als Spam markieren
• Beitrag melden

• 
  Diese Gruppe Alles

• Archiv
• RSS-Feeds

• Kontakt
• Hilfe
• Impressum
• Datenschutz

Bug in Delphi5

Hallo,

kleines Testproject. Wenn ich ein Breakpoint in SetBlaBla setzen oder
mit F7 in die Procedure SetBlaBla springe, bekomme ich die Meldung:

Assertion failure: "evThreadId == GetCurrentThreadId()"
in ..\win32src\eval32.cpp at line 582
Continue execution?

Gibt es für dieses Problem eine Lösung? Drüber springen ist leider keine.


type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
procedure SetBlaBla(const ADate: Variant);
{ Private-Deklarationen }
public
{ Public-Deklarationen }
end;

var
Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
var
vDate: Variant;
begin
vDate := Date;
SetBlaBla(vDate);
end;

procedure TForm1.SetBlaBla(const ADate: Variant);
var
dt: TDateTime;
begin
dt := ADate;
end;

Antworten