[gelöst] Lazarus: SaveToFile geht nicht

[DeddyH]

Wo gibst Du die Liste wieder frei?

[BadenPower]

Schmeiss einmal den ganzen Code rüber.

Ich hab es beim mir unter Lazarus getestet und es funktioniert perfekt.

Wahrscheinlich löst noch etwas Anderes den Fehler aus.
Das ist nur eine Vermutung, denn auch Deine Diagnose der Fehlerstelle beim StringGrid.RowCount ist falsch gewesen.

[Kralle]

Moin,

Zitat von mjustin:

Wird der richtige Inhalt der StringList im Debugger angezeigt bevor der SaveToFile Aufruf stattfindet?

Hmm, gute Frage. Irgendwie bekomme ich es in Lazarus nicht hin, das mir der Inhalt von sl bei den Überwachten Ausdrücken angezeiigt wird.
Kannst Du helfen?

@DeddyH: Die Liste gebe ich hier wiedwer frei:

Delphi-Quellcode:

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: boolean);
begin
    sl.free;
end;

Gruß Heiko

[Kralle]

Was mich verwirrt ist der Inhalt von SaveDialog1.FileName dem dem Schliessen des Dialoges.

Zitat:

<Error: A syntax error in expression, near 'FileNAme'.>

Heiko

[DeddyH]

FormCloseQuery ist die völlig falsche Stelle. Was man im FormCreate erzeugt, gibt man i.A. erst im FormDestroy wieder frei.

[Kralle]

Moin,

Zitat von BadenPower:

Schmeiss einmal den ganzen Code rüber.

Nicht mehr nötig.

Erst wurde die StringList in einer ButtonClick-Ereignis-Behamndlungsprocedure
Erzeugt und nach einem finally wieder freigegeben.

Leider habe ich nur einen Teil davon ausgelagert, so das die StringList doch vor dem Speichern ein Free bekam.

Fehler gefunden. Danke für Eure schnelle Hilfe.

Das Free habe ich ins Destroy verschoben.

Gruß HEiko

[himitsu]

Warum heißt das "sl"?

Und wieso ist das global?

[BadenPower]

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.

[Kralle]

Zitat von BadenPower:

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.

Okay, danke für den Hinweis. Habe das sofort umgesetzt.

Gruß Heiko

[Kralle]

Moin,

Zitat von himitsu:

Warum heißt das "sl"?

Weil StringListen irgendwie hier in den Beispielen immer "sl" heißen.

Zitat von himitsu:

Und wieso ist das global?

Weil ich mein StringListe nicht in einer Procedure/Funktion definiere sondern halt global.

Gruß Heiko