Hi,
hab eigentlich keine Probleme damit. Hab in beiden Units die
Types eingebunden und den beschriebenen Typ genommen.
Das Array hab ich als
var übergeben, sonst ist es bei der Rückgabe wieder Länge
0.
Quellcode sieht ungefähr so aus:
Delphi-Quellcode:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Types, StdCtrls;
type
TForm1 =
class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
end;
var
Form1: TForm1;
implementation
uses Unit2;
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var
UpdateListFile : TStringDynArray;
begin
if Unit2.Check4UpdateList(UpdateListFile)
then
begin
ShowMessage(IntToStr(Length(UpdateListFile)));
// hier mal ne Message, um die länge zu kontrollieren
Caption:= '
OK';
end;
end;
Delphi-Quellcode:
unit Unit2;
interface
uses
Types;
implementation
function Check4UpdateList(
var UpdateListFile : TStringDynArray): boolean;
begin
SetLength(UpdateListFile, 1);
// hier gibts keinen Fehler
Result := true;
end;
Viel Glück und mfg