Array of Boolean verarbeiten

[DeddyH]

Nur so ein Gedanke:

Delphi-Quellcode:

procedure TForm2.S2Click(Sender: TObject);
var StrList: TStrings;
    x, y, i, j: integer;
begin
  if OpenDialog1.Execute then begin
    StrList := NIL;
    StrList := TStringList.Create;
    try
      StrList.LoadFromFile(OpenDialog1.FileName);
      i := 0;
      for x := MaxX downto 0 do
        for y := MaxY downto 0 do
        begin
          UniversumsMatrix[x,y] := StrToBool(StrList[i]);
          inc(i);
        end;
    finally
      StrList.Free;
      RasterDrawGrid.Repaint;
    end;
  end;
end;

Allerdings liest Du in umgekehrter Reihenfolge wieder ein, als in der, in der im obigen Code gespeichert wurde. Außerdem würde ich nach dem Laden erst einmal prüfen, ob die Stringliste auch genügend Elemente enthält. Aber Du wirst das schon machen

[edit] Kein roter Kasten? [/edit]