Inkompatible Typen

[Nakaron]

Delphi-Quellcode:

// Meine beiden Records
type
  TUserInfo = record
    Name  : String;
    Email : String;
    Status: char;
    IP : String;
  end;

type
  TCommBlock = record   // Kommunikationsblock (Server <-> Client)
                 Command,
                 MyUserName,                 // Sender der Nachricht
                 Msg,                        // Nachricht
                 ReceiverName: string[100];  // Empfänger
                 UserRecord: array of TUserInfo; // Alle User die Online sind
               end;

//-------------------------------------------------

procedure TMain.GetUserInfo({...});
var
//...
  UserList : array of TUserInfo;
  NewCommBlock: TCommBlock;
//...
begin
//...
  NewCommBlock.UserRecord := UserList; // <-- Inkompatible Typen; Nur warum?
//...

[Speedmaster]

Einfach dein Array als Typen machen also so:
TUserRecord = array of TUserInfo; Dann den Typen angeben!

[KrasserChecker]

Mist, zu langsam...

Für Delphi sind die beiden Deklarationen "aaray of TUserInfo" zwei verschiedene Typen. Sie sehen nur zufalläig gleich aus. Aber das kann Delphi nicht wissen.

Daher mußt Du den Typ selbst deklarieren:

Delphi-Quellcode:

// Meine beiden Records 
type 
  TUserInfo = record 
    Name  : String; 
    Email : String; 
    Status: char; 
    IP : String; 
  end; 

  TUserInfoArray: array of TUserInfo;

type 
  TCommBlock = record   // Kommunikationsblock (Server <-> Client) 
                 Command, 
                 MyUserName,                 // Sender der Nachricht 
                 Msg,                        // Nachricht 
                 ReceiverName: string[100];  // Empfänger 
                 UserRecord: TUserInfoArray; // Alle User die Online sind 
               end; 

//------------------------------------------------- 

procedure TMain.GetUserInfo({...}); 
var 
//... 
  UserList : TUserInfoArray; 
  NewCommBlock: TCommBlock; 
//... 
begin 
//... 
  NewCommBlock.UserRecord := UserList; // <-- Inkompatible Typen; Nur warum? 
//...

[Nakaron]

geht nicht. sieht nun so aus:

Delphi-Quellcode:

type
  TTUserInfo = record
    Name  : String;
    Email : String;
    Status: char;
    IP : String;
  end;

type
TUserInfo = array of TTUserInfo;

type
  TCommBlock = record   // Kommunikationsblock (Server <-> Client)
                 Command,
                 MyUserName,                 // Sender der Nachricht
                 Msg,                        // Nachricht
                 ReceiverName: string[100];  // Empfänger
                 UserRecord: array of TUserInfo;
               end;

immernoch selbe fehlermeldung

[Speedmaster]

Du musst doch nicht mehr array of TUserInfo machen, wenn du den Typen als Array Deklariert hast!

[Nakaron]

ach mist, hatte ich vergessen zu ändern. thx euch beiden