Problem mit TObject.Classname

[Hawkeye219]

@himitsu

Es könnte jetzt jemand auf die Idee kommen, den Aufruf aus dem zweiten Code-Block mit der Original-Routine zu kombinieren. Das wird nicht gut gehen...

Gruß Hawkeye

[himitsu]

Delphi-Quellcode:

var ServerList: Array[..] of TObject;

function NotifyToList(item: TObject): Word;

// oder besser gleich TServer statt TObject

var ServerList: Array[..] of TServer;

function NotifyToList(item: TServer): Word;

PS: warum eigentlich ItemUsed?

Delphi-Quellcode:

i := 0;
while not Assigned(ServerList[i]) do Inc(i);
ServerList[i] := item; 

// aka (Vorherigs halten viele abver für schöner/verständlicher)

i := 0;
while ServerList[i] = nil do Inc(i);
ServerList[i] := item;

und die Übergabe dann nur noch so:

Delphi-Quellcode:

NotifyToList(Server);

[implementation]

Wenn ich keine Adressen benutze, sondern direkt die Klassenreferenz (TObject), dann wird jedes mal eine AccessViolation ausgelöst.
Also geht es so nicht.

[himitsu]

Eigentlich geht es :angel:


wie versuchst du es denn derzeit? (etwas Code wäre eventuell nicht schlecht)

[implementation]

Der Aufruf:

Delphi-Quellcode:

procedure TWdServer.WSIDCreate;
begin
  FWSID := NotifyToList(self);  
  // mit FWSID := NotifyToList(TObject(self)); hab ichs auch schon versucht
end;

und

Delphi-Quellcode:

type
  TServerList = array[0..1023] of TObject;
var
  ServerList: TServerList;

[...]

function NotifyToList(item: TObject): Word;
var i: Word;
begin
  ...
  ServerList[i] := item;
  ...
end;

Bei "ServerList[i] := item;" wird die AccessViolation ausgelöst.

[himitsu]

Zitat:

Zitat von implementation

Delphi-Quellcode:

function NotifyToList(item: PObject): Word;
var i: Word;
begin
  while ItemUsed[i] do Inc(i);
  ItemUsed[i]:=true;
  ServerList[i] := item;
  Result := i;
  OutputLine('WSID '+IntToHex(i,4)+' is stored for a '+item^.ClassName);
end;

meckert Delphi bei dir eigentlich noch wegen dem undefinierten i?

Delphi-Quellcode:

var ServerList: Array[0..1023] of TObject; 

function NotifyToList(Item: TObject): Word;
begin
  Result := Low(ServerList);
  while Assigned(ServerList[Result]) do 
    if Result < High(ServerList) then Inc(Result)
    else raise Exception.Create('Liste ist voll');
  ServerList[Result] := Item;
  OutputLine(Format('WSID %.4x is stored for a %s', [Result, Item.ClassName]));
end;


// so das Freigeben von Items:
FreeAndNil(ServerList[i]);

[implementation]

dann kommt nicht einmal eine Fehlermeldung.
Das Programm bricht einfach ab.