Zeichenkette zwischen kommas aus string in array schreiben

[alcaeus]

Hi Coolboarder_9,

versuchs mal so:

Delphi-Quellcode:

type IntAr = array of Integer;

procedure StringTeilen(var IntArray: IntAr; str: String);
var
  i: Integer;
  SL: TStringList;
begin
  SL := TStringList.Create;
  try
    SL.Delimiter := ',';
    SL.DelimitedText := str;
    SetLength(IntArray, SL.Count);
    for i := 0 to SL.Count-1 do
    begin
      if not TryStrToInt(SL.Strings[i], IntArray[i]) then
        IntArray[i] := 0;
    end;
  finally
    SL.Free;
  end;
end;

mit TryStrToInt wird versucht, einen String-Wert in einen Integer umzuwandeln. Schlägt dies fehl, dann liefert die Funktion false zurück. In dem Fall wird die Variable sicherheitshalber auf False gesetzt.

Greetz
alcaeus

[edit]Kleinen Fehler im Code verbessert[/edit]