zusammenfalten · markieren

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?
//...

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

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:

zusammenfalten · markieren

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?
//...

geht nicht. sieht nun so aus:

zusammenfalten · markieren

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

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

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