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