Zitat von
BenjaminH:
Diagonal
Delphi-Quellcode:
x:=0;
for y:=0 to Length(s) do
Begin
Inc(x);
StrinGrid1.Cells[x,i].Add(s[y]);
End;
Der Stringinhalt beginnt mit dem Index 1
.
Und warum nicht einfach
Delphi-Quellcode:
for i := 1 to Length(s) do
StrinGrid1.Cells[i - 1, i - 1].Add(s[i]);
?
[add]
Zitat:
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
Das sollte nicht funktionieren, da du dadurch sowohl die Felder umgekehrt füllst, als auch den Stringinhalt umdrehst. Zum Umdrehen einfach jeweils
.Add(s[i]);
durch
.Add(s[Length(s) - i + 1]);
ersetzen.