Zeilenumbruch aus TStringList löschen

[DeddyH]

Nun muss ich doch nochmal nachfragen. Angenommen, Deine Stringliste sieht so aus:

Code:

01
02
03
04
05
06
07
08
09
10
usw.

Dann möchtest Du es so im StringGrid haben, richtig?

Code:

01 | 02 | 03
------------
04 | 05 | 06
------------
07 | 08 | 09
------------
10 |

[fanavity]

Genau richtig, dass ist mein Problem

Vielleicht ein wenig umständlich erklärt

[DeddyH]

Also wie gesagt: der erste String in Deiner Liste hat ja den Index 0, der zweite den Index 1 usw. Deine Laufvariable i entspricht ja dann diesem Index, so wie es in Deinem Code steht. Ist diese also restlos durch 3 teilbar, dann muss es eine neue Zeile werden.

[fanavity]

Ja das weiß ich ja.. Nur wie sage ich dem Programm:" Hey, geh mal in eine neue Zeile! ?"

[DeddyH]

Indem Du auf StringGrid.Cells zugreifst, da kannst Du Zeile und Spalte der aktuellen Zelle angeben.

[fanavity]

Das weiß ich auch, nur irgendwie stehe ich auf dem Schlauch. Ist mein Lösungsansatz von oben denn richtig oder muss ich den kommplett umbauen?

wenn ich es mit StringGrid1.Cells[x,y] versuche, bekomme ich immer eine Diagonale ^^

Wie gesagt, ich stehe auf dem Schlauch :/

[DeddyH]

Ungetestet:

Delphi-Quellcode:

procedure FillGridFromStringlist(List: TStrings; Grid: TStringGrid; ColsPerRow: integer);
var
  i, Zeile, Spalte: integer;
begin
  if not Assigned(List) or not Assigned(Grid) then
    raise Exception.Create('Liste und Grid müssen vorhanden sein.');
  Grid.RowCount := Grid.FixedRows + List.Count div ColsPerRow;
  if List.Count mod ColsPerRow > 0 then
    Grid.RowCount := Grid.RowCount + 1;
  for i := 0 to List.Count - 1 do
    begin
      Zeile := Grid.FixedRows + i div ColsPerRow;
      Spalte := Grid.FixedCols + i mod ColsPerRow;
      Grid.Cells[Spalte, Zeile] := List[i];
    end;
end;