Registriert seit: 17. Jun 2009
616 Beiträge
|
AW: [gelöst] Lazarus: SaveToFile geht nicht
17. Feb 2015, 15:17
Ausserdem solltest Du noch Deine Schleife aus dem anderen Post von:
Delphi-Quellcode:
StringGrid1.RowCount:=sl.count+StringGrid1.FixedRows;
for i := 0 to sl.count-1 do
begin
StringGrid1.Rows[i+1].StrictDelimiter := True;
StringGrid1.Rows[i+1].CommaText:=sl.Strings[i];
end;
auf:
Delphi-Quellcode:
StringGrid1.RowCount := sl.count + StringGrid1.FixedRows;
for i := 0 to sl.count-1 do
begin
StringGrid1.Rows[i+StringGrid1.FixedRows].StrictDelimiter := True;
StringGrid1.Rows[i+StringGrid1.FixedRows].CommaText:=sl.Strings[i];
end;
ändern.
Denn wenn Du im OI die Property FixedRows des Stringgrids änderst, dann würde es bei Deiner Variante wieder zum Fehler kommen.
Programmieren ist die Kunst aus Nullen und Einsen etwas sinnvollen zu gestalten.
Der bessere Künstler ist allerdings der Anwender, denn dieser findet Fehler, welche sich der Programmierer nicht vorstellen konnte.
Geändert von BadenPower (17. Feb 2015 um 15:21 Uhr)
|