Wie einen array of Integer speichern?

[Flips]

Hi.

Kenne mich mit Datenbanken außer MySQL jetzt nicht so gut aus, aber warum machst du das Array nicht einfach zu nem einzigen String, getrennt mit Seperators.
Also auf dem Array

Delphi-Quellcode:

zahlen[0] := 1;
zahlen[1] := 5;
zahlen[2] := 9;
zahlen[3] := 32;

wird beispielsweise

Code:

1;5;9;32

Kennst vielleicht die implode/explode Funktion in PHP.
Implode macht aus nem Array so eine Kette, explode splitet sie wieder in ein Array.
Implode könntest du dir wohl einfach selber machen, explode hab ich mal nachgeschaut und diesen Code gefunden:

Delphi-Quellcode:

function Explode(const Separator, S: string; Limit: Integer = 0):
  TStringDynArray;
var
  SepLen       : Integer;
  F, P         : PChar;
  ALen, Index  : Integer;
begin
  SetLength(Result, 0);
  if (S = '') or (Limit < 0) then
    Exit;
  if Separator = '' then
  begin
    SetLength(Result, 1);
    Result[0] := S;
    Exit;
  end;
  SepLen := Length(Separator);
  ALen := Limit;
  SetLength(Result, ALen);

  Index := 0;
  P := PChar(S);
  while P^ <> #0 do
  begin
    F := P;
    P := StrPos(P, PChar(Separator));
    if (P = nil) or ((Limit > 0) and (Index = Limit - 1)) then
      P := StrEnd(F);
    if Index >= ALen then
    begin
      Inc(ALen, 5); // mehrere auf einmal um schneller arbeiten zu können
      SetLength(Result, ALen);
    end;
    SetString(Result[Index], F, P - F);
    Inc(Index);
    if P^ <> #0 then
      Inc(P, SepLen);
  end;
  if Index < ALen then
    SetLength(Result, Index); // wirkliche Länge festlegen
end;

Hier gegoogelt

So würde ichs machen