Forum: Object-Pascal / Delphi-Language
Delphi
by implementation,
6. Mär 2009
dann kommt nicht einmal eine Fehlermeldung.
Das Programm bricht einfach ab.
Forum: Object-Pascal / Delphi-Language
Delphi
by implementation,
6. Mär 2009
Der Aufruf:
procedure TWdServer.WSIDCreate;
begin
FWSID := NotifyToList(self);
// mit FWSID := NotifyToList(TObject(self)); hab ichs auch schon versucht
end;
und
Forum: Object-Pascal / Delphi-Language
Delphi
by implementation,
5. Mär 2009
Wenn ich keine Adressen benutze, sondern direkt die Klassenreferenz (TObject), dann wird jedes mal eine AccessViolation ausgelöst.
Also geht es so nicht.
Forum: Object-Pascal / Delphi-Language
Delphi
by implementation,
20. Feb 2009
Das wird nicht passieren.
ItemUsed und Serverlist sind Arrays von 0 bis 1023, und so viele Elemente wird das Programm niemals benötigen.
Forum: Object-Pascal / Delphi-Language
Delphi
by implementation,
20. Feb 2009
@mkinzler: dann mach ich eben einen Zeiger auf den Klassenzeiger. ;-)
war wohl nicht das problem...
Forum: Object-Pascal / Delphi-Language
Delphi
by implementation,
20. Feb 2009
In meiner Funktion habe ich einen Zeiger auf ein TObject.
Ich möchte dort den Klassennamen als String auslesen.
function NotifyToList(item: PObject): Word;
var i: Word;
begin
while ItemUsed do Inc(i);
ItemUsed:=true;
ServerList := item;
Result := i;