[gelöst] Lazarus: SaveToFile geht nicht

[Kralle]

OS: Windows 8.1 Professional 64-Bit
Dateisystem: NTFS
IDE: Lazarus 1.2.6
FPC: 2.6.4

Moin,

wedwer das :

Delphi-Quellcode:

procedure TForm1.MenuItem5Click(Sender: TObject);
var tempstr: string;

begin

 if SaveDialog1.Execute then
 begin
      tempstr:=SaveDialog1.FileName;
      sl.SaveToFile(tempstr);
 end; 
end;

noch das :

Delphi-Quellcode:

procedure TForm1.MenuItem5Click(Sender: TObject);

begin

 if SaveDialog1.Execute then
      sl.SaveToFile(SaveDialog1.FileName);
 end;

Funktionieren. Beim ersten steht der richtige Pfad beim Debug in der Variablen,
aber das Speichern führt bei beiden trotzdem zu der Meldung:

Zitat:

Projekt .. hat Exception-Klasse >>External: SIGGEGV<< ausgelöst. Bei Adresse 4441434C

Warum? Was läuft da falsch?

Gruß heiko

[baumina]

Was ist s1, wo wurde das kreiert?
Beim 2. Beispiel ist tempstr nicht zugewiesen.

[DeddyH]

Die nötigen Rechte sind aber vorhanden? Und wozu der temporäre String, sofern er nicht anderweitig noch gebraucht wird?

Delphi-Quellcode:

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

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

[Kralle]

Moin,

Zitat von baumina:

Was ist s1, wo wurde das kreiert?

sl ist eine StringList die Gobaldefiniert wurde und in Form.Create erzeugt wird.
Das Füllen der Liste funktioniert.

Zitat von baumina:

Beim 2. Beispiel ist tempstr nicht zugewiesen.

Tippfehler - berichtigt.

Kann es sein das es irgendein Problem mit den Zeichensätzen zwischen Lazarus/Free Pascal und Windows ist?

Gruß HEiko

[BadenPower]

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.

Nicht nur vermutlich.

Die Fehlermeldung kommt, wenn auf ein Objekt zugegriffen werden soll, welches nicht erstellt wurde.

sl ist eine Stringlist (vergleiche andere Posts des TE), welche nicht erstellt wurde (also kein Create).


Zeig uns einmal die "FormCreate"-Procedure.

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

[mjustin]

Zitat von Kralle:

sl ist eine StringList die Gobaldefiniert wurde und in Form.Create erzeugt wird.
Das Füllen der Liste funktioniert.

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

[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