StringGrid horizontal, vertikal und diagonal füllen

[BenjaminH]

Diagonal

Delphi-Quellcode:

x:=0;
for y:=0 to Length(s) do
Begin
  Inc(x); 
  StrinGrid1.Cells[x,i].Add(s[y]);
End;

Vertikal

Delphi-Quellcode:

for x:=0 to Length(s) do
Begin
  StrinGrid1.Rows[x].Add(s[x]);
End;

Um das rückwärts zu machen musst du einfach jedes to durcc downto ersetzen, Start und Endwert umdrehen und möglicherweise auch das Inc durch Dec ersetzen