[gelöst] Lazarus: SaveToFile geht nicht

[Kralle]

Mpoin,

Zitat von mjustin:

SIGSEGV (segmentation violation) entspricht einer Access Violation (siehe http://en.wikipedia.org/wiki/Segmentation_fault).

Bei der Variablen sl (SL) handelt es sich dann vermutlich eine nicht instanziierte TStringList.

Also, sl ist eine StringList und ja sie ist instanziiert, sonst könnte ich sie ja nicht mit Inhalten zur Laufzeit befüllen oder?

Delphi-Quellcode:

  private
    { private declarations }
  public
    { public declarations }
  end;

var
  Form1: TForm1;
  sl: TStringList;
implementation

{$R *.lfm}

{ TForm1 }

procedure TForm1.FormCreate(Sender: TObject);
begin
   sl:= TStringList.Create;
end;

Gruß HEiko

[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 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]

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

[Kralle]

Moin,

Zitat von DeddyH:

Die nötigen Rechte sind aber vorhanden?

Ja.

Zitat von DeddyH:

Und wozu der temporäre String, sofern er nicht anderweitig noch gebraucht wird?

Delphi-Quellcode:

if SaveDialog1.Execute then
  sl.SaveToFile(SaveDialog1.Filename);

Um zu sehen ob Filename irgendwelche "ulkigen" Zeichen aufgrund irgendwelcher Schriftsatzproblem enthält.

Gruß HEiko

[DeddyH]

Zeig mal mehr Code, das wird sonst ein lustiges Rätselraten. Die Stringliste existiert zu diesem Zeitpunkt auf jeden Fall, oder wird sie ggf. vor dem FormDestroy wieder freigegeben?