Funktion soll Array zurückgeben / TYPEDEF

[Nightfly]

Hi

also, ich beschreibe was ich tun will:

Im Moment habe ich eine Funktion, welche 9 Felder in einem Datensatz prüft, und wenn ein Inhalt vorhanden ist, diese Inhalte zu einem String verknüpft, und diesen zurückgibt.
So siehts aus:

Delphi-Quellcode:

function TForm1.FindeBehandlungen():String;      array
var i : Integer;
begin
  Result := '';
  for i := 150 to 182 do
  begin
    if ((i + 2) MOD 4) = 0 then // Modulo4: in jedem 4 Datensatz steht ein Artikelname
      begin
       if length(PDBBehandlung.Fields[i].AsString) > 0 then //wenn auch ein Artikel eingetragen ist
       Result := Result + PDBBehandlung.Fields[i].AsString +',';
      end;
  end;
Result := copy(Result,0,length(Result)-1); //letztes ',' abschneiden
end;

Diesen String will ich nun drucken, es kann aber sein das er zu lang is, nämlich genau dann wenn er mehr als 4 Teilstrings enthält (wie gesagt, 9 können es werden).

Meine Lösung: Die Funktion gibt nicht einen Strink zurück, sondern ein array [0...8]of String, und wenn dann in pos 4 noch was steht, weiß ich das ich nen Zeilenumbruch basteln muß.

Nur wie mach ich das?