Gauß-Elimination

[sx2008]

Ich würde folgende Funktion verwenden, um die Zahlen zu trennen

Delphi-Quellcode:

// kopiert aus der JCL
// Zerlegt den String "S" in seine Einzelteile die durch das "Separator"-Zeichen getrennt werden
// und liefert bei jedem Aufruf ein Teil zurück
function StrToken(var S: AnsiString; Separator: AnsiChar): AnsiString;
var
  I: Integer;
begin
  I := Pos(Separator, S);
  if I <> 0 then
  begin
    Result := Copy(S, 1, I - 1);
    Delete(S, 1, I);
  end
  else
  begin
    Result := S;
    S := '';
  end;
end;

Und dann so anwenden:

Delphi-Quellcode:

     for i:=0 to size do
     begin
          hilfsstring2 := stringarray[i];
          for y:=0 to size+1 do
          begin
               hilfsstring := StrToken(hilfsstring2, {Trennzeichen=}' ');
               gsys[getIndex(i,y,size)]:=strtofloat(hilfsstring);
          end;
     end;