StringGrid horizontal, vertikal und diagonal füllen

[Khabarakh]

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.