Registriert seit: 6. Mär 2013
6.159 Beiträge
Delphi 10 Seattle Enterprise
|
AW: Typenfehler
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.
|
|
Zitat
|