Also ich wollte mal intuitiv sein und habe es mal auf eigenem Wege probiert. Dabei musste ich feststellen, dass ich entweder falsch programmiert habe oder ich einfach nicht den Durchblick habe... so oder so kommt es auf das Selbe heraus.
Delphi-Quellcode:
if Length(Sumlist[iY - 1].sStichwort) > 50 then // Wenn mein String länger als 50 Chars ist
begin
iStrCount := 50;
repeat
if Sumlist[iY - 1].sStichwort[iStrCount] <> '' then // Wenn ein Leerzeichen gefunden wurde
begin
iStrCount := iStrCount - 1;
end
else
begin
iCounter := 1;
sNote := Copy(Sumlist[iY - 1].sStichwort, iStrCount + 1,
(Length(Sumlist[iY - 1].sStichwort[iStrCount + 1]) - iStrCount) - 2); // Kopiere alles nach dem ersten Leerzeichen in diesen String
Auskunft_strgr.RowCount := Auskunft_strgr.RowCount + 1;
iNextRow := iY + 1;
Auskunft_strgr.Cells[iX, iNextRow] := sNote; // Gebe ihn in der nächsten Reihe aus
end;
until iStrCount = 1;
Auskunft_strgr.Cells[iX, iY] := Sumlist[iY - 1].sStichwort;
end
else
begin
Auskunft_strgr.Cells[iX, iY] := Sumlist[iY - 1].sStichwort;
end;
Generell sollte das so doch auch funktionieren oder irre ich mich? Was mache ich falsch?
Gruß
Jan