Hi,

kann es sein das in dem Code ein Fehler drin ist?

markieren

Delphi-Quellcode:

function FindChannelWindow(channel: string; server: Tserverform): Tmsgform;
var
  i: Integer;
begin
  for i := 0 to Application.ComponentCount-1 do begin
    if (Application.Components[i] is Tmsgform) then begin
      if ((Application.Components[i] as Tmsgform).channel = channel) and ((Application.Components[i] as Tmsgform).Server = server) then Result := (Application.Components[i] as Tmsgform);
    end;
  end;
end;

Das ganze funktioniert nämlich nicht ganz.

MFG Chris.

So direkte fehler sehe ich jetzt nicht, jedoch solltest du Result zuerst einen Default-Wert zuweisen:

markieren

Delphi-Quellcode:

function FindChannelWindow(channel: string; server: Tserverform): Tmsgform;
var
  i: Integer;
begin
  Result:=nil;
  for i := 0 to Application.ComponentCount-1 do
    if Application.Components[i] is Tmsgform then
      if (Tmsgform(Application.Components[i]).channel = channel) and (Tmsgform(Application.Components[i]).Server = server) then
        Result:=Tmsgform(Application.Components[i]);
end;

Hi!

Zitat von MasterC:

Das ganze funktioniert nämlich nicht ganz.

Dann sag uns doch mal, was es machen soll und was es macht


Ciao Frederic