Thema: Typenfehler

Einzelnen Beitrag anzeigen

Der schöne Günther

Registriert seit: 6. Mär 2013
6.159 Beiträge
 
Delphi 10 Seattle Enterprise
 
#3

AW: Typenfehler

  Alt 11. Mär 2015, 16:25
Also folgendes kompiliert und läuft ohne Probleme:

Delphi-Quellcode:
program Project22;
uses System.SysUtils;

type
  TFileList = record
    name, checksum: String;
   end;

   TFileListArray = Array of TFileList; // Warum nicht TArray<TFileList>?

function update_listFiles(
   server, branch, appname, version, sid: String;
   out OUTMessage: String;
   out OUTList: TFileListArray
): Boolean;
begin
   Result := False;
end;

var
   filesList:   TFileListArray;
   check:      Boolean;
   someMsg:   String;
begin
  try
   check := update_listFiles(
      '', '', '', '', '',
      someMsg,
      FilesList
   );
  except
   on E: Exception do
     Writeln(E.ClassName, ': ', E.Message);
  end;
end.
  Mit Zitat antworten Zitat