Du kannst auch gern die Generics etwas ausnutzen.
Delphi-Quellcode:
function TIntegerArrayHelper.ToString: String;
var
Element: Integer;
begin
Result := Default(String);
for Element in Self do
Result := Result + Element.ToString;
end;
Im Prinzip ist diese Funktion schon für alles Arrays gewappnet, solange die Elemente ein ToString besitzen.
Objekte haben Dieses, aber das ist noch recht selten "richtig" implementiert, bzw. es wurde oftmals vergessen es entsprechend zu überschreiben.
Delphi-Quellcode:
function TIntegerArrayHelper.ToString(Separator: Char=#0): String;
var
Element: Integer;
begin
Result := '';
for Element in Self do
if (Result <> '') and (Separator <> #0) then
Result := Result + Separator + Element.ToString
else
Result := Result + Element.ToString;
end;
// bzw.
function TIntegerArrayHelper.ToString(Separator: Char=#0): String;
var
Element: Integer;
begin
Result := '';
for Element in Self do
Result := Result + Element.ToString + Separator;
Delete(Result, High(Result), 1);
end;