Wie bei einer Function ein ZweiDimensionales zurück geben ??

[Luke_83]

Hallo hab mal ne Frage und zwar wie kann man bei einer Function ein Zwei Dimensionales Array zurückgeben.

Delphi-Quellcode:

function Auslesen(Path:String):String;
var Zeilen:TStringList;
    z,i_r,i_z:Integer;
    a,s:String;
    Zeilen_Temp:String;
    Reihe_Zeichen_Org:Array[0..1000] of Array [0..10] of String;
Begin 
 Zeilen:=TStringList.Create;
 Zeilen.LoadFromFile(path);
 z:=0;
 For i_r:=0 to Zeilen.Count-1 do Begin
     Zeilen_Temp:=Zeilen.Strings[i_r];
     For i_z:=1 to length(Zeilen_Temp) do Begin
         IF Zeilen_Temp[i_z]<>'#' Then Begin
            a:=s+Zeilen_Temp[i_z]; s:=a;
         End;
         IF Zeilen_Temp[i_z+1]='#' Then Begin
            Reihe_Zeichen_Org[i_r,z]:=a;
            s:=''; a:='';
            z:=z+1;
         End;
     End;
     z:=0;
  End;

  result:=Reihe_Zeichen_Org;
End;

Am Ende der Funktion will ich dann das "Reihe:Zeichen_Org" Array zurückgeben was bisher aber noch nicht geklappt.

gruß Luke

[DeddyH]

Definiere Dein Array als Typ und setz dann die Funktionsrückgabe auf diesen Typ.

Delphi-Quellcode:

type TMyArray = array[0..999,0..9] of string;

function MyFunc: TMyArray;
begin
  Result[0,0] := 'Hallo';
  Result[0,1] := 'Welt';
end;

Getippt und nicht getestet.

[yörsch]

und dann

Code:

  
function Auslesen(Path:String):TMyArray; 
begin
...
result = [0,0]:='TEST'
end;

var
 My : TMyArray;

...

My := Auslesen('c:\');

[Luke_83]

Cool Funktioniert. Danke für die Hilfe.