Array of Boolean verarbeiten

[Back2Code]

Zitat von Sherlock:

Ob jetzt einer verschämt den Kopf gegen die Wand schlägt?

Sherlock

Im Endeffekt hab ich mir meine Frage mit meiner Fragestellung ja fast selber beantwortet. Danke für den Anstoß

[Back2Code]

Steh jetzt leider vorm nächsten Problem nämlich dem Laden...

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;
    StrList.LoadFromFile(OpenDialog1.FileName);

    try
      for x := MaxX downto 0 do
        for y := MaxY downto 0 do
        begin
          UniversumsMatrix[x,y] := StrToBool(StrList.Strings. ??
        end;
    finally
      StrList.Free;
      RasterDrawGrid.Repaint;
    end;
  end;
end;

Das war jetzt so mein Ansatz aber das will vorne und hinten nicht

[Uwe Raabe]

Delphi-Quellcode:

      i := 0;
      for x := MaxX downto 0 do
        for y := MaxY downto 0 do
        begin
          UniversumsMatrix[x,y] := StrToBool(StrList[I]);
          Inc(i);
        end;

[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]