Ist an dem Code was falsch?

[MasterC]

Hi,

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

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.

[Phantom1]

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

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;

[fkerber]

Hi!

Zitat:

Zitat von MasterC

Das ganze funktioniert nämlich nicht ganz.

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


Ciao Frederic