Abfragen ob eine Variable oder die Referenz noch existiert

[Klaus01]

Vielleicht so:

Delphi-Quellcode:

  if Assigned(AClient) then
    begin
      while (Pos(EOCommand, AClient.Buffer) > 0) do begin 
        Index := Pos(EOCommand, AClient.Buffer); 
        DCFrame := Copy(AClient.Buffer, 1, Index + 4); 
        AClient.Buffer := Copy(AClient.Buffer, Index + 5, Length(AClient.Buffer)); 

        Parse_DCFrame(AClient, DCFrame); 
        end; 
    end;

oder so:

Delphi-Quellcode:

      while ((Assigned(AClient)) AND(Pos(EOCommand, AClient.Buffer) > 0)) do begin 
        Index := Pos(EOCommand, AClient.Buffer); 
        DCFrame := Copy(AClient.Buffer, 1, Index + 4); 
        AClient.Buffer := Copy(AClient.Buffer, Index + 5, Length(AClient.Buffer)); 

        Parse_DCFrame(AClient, DCFrame); 
        end;

Grüße
Klaus