AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Programmierung allgemein Programmieren allgemein FreePascal [gelöst] Lazarus: SaveToFile geht nicht
Thema durchsuchen
Ansicht
Themen-Optionen

[gelöst] Lazarus: SaveToFile geht nicht

Ein Thema von Kralle · begonnen am 17. Feb 2015 · letzter Beitrag vom 17. Feb 2015
Antwort Antwort
Seite 2 von 3     12 3      
Benutzerbild von DeddyH
DeddyH

Registriert seit: 17. Sep 2006
Ort: Barchfeld
27.619 Beiträge
 
Delphi 12 Athens
 
#11

AW: Lazarus: SaveToFile geht nicht

  Alt 17. Feb 2015, 14:51
Wo gibst Du die Liste wieder frei?
Detlef
"Ich habe Angst vor dem Tag, an dem die Technologie unsere menschlichen Interaktionen übertrumpft. Die Welt wird eine Generation von Idioten bekommen." (Albert Einstein)
Dieser Tag ist längst gekommen
  Mit Zitat antworten Zitat
BadenPower

Registriert seit: 17. Jun 2009
616 Beiträge
 
#12

AW: Lazarus: SaveToFile geht nicht

  Alt 17. Feb 2015, 14:53
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.
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.
  Mit Zitat antworten Zitat
Kralle

Registriert seit: 31. Okt 2004
Ort: Bremerhaven
355 Beiträge
 
Delphi XE7 Professional
 
#13

AW: Lazarus: SaveToFile geht nicht

  Alt 17. Feb 2015, 14:56
Moin,

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
OS: Windows 10 Professional, Delphi XE7 Pro SP1 +(Mobilpack & FireDAC)
  Mit Zitat antworten Zitat
Kralle

Registriert seit: 31. Okt 2004
Ort: Bremerhaven
355 Beiträge
 
Delphi XE7 Professional
 
#14

AW: Lazarus: SaveToFile geht nicht

  Alt 17. Feb 2015, 14:58
Was mich verwirrt ist der Inhalt von SaveDialog1.FileName dem dem Schliessen des Dialoges.
Zitat:
<Error: A syntax error in expression, near 'FileNAme'.>
Heiko
OS: Windows 10 Professional, Delphi XE7 Pro SP1 +(Mobilpack & FireDAC)
  Mit Zitat antworten Zitat
Benutzerbild von DeddyH
DeddyH

Registriert seit: 17. Sep 2006
Ort: Barchfeld
27.619 Beiträge
 
Delphi 12 Athens
 
#15

AW: Lazarus: SaveToFile geht nicht

  Alt 17. Feb 2015, 14:59
FormCloseQuery ist die völlig falsche Stelle. Was man im FormCreate erzeugt, gibt man i.A. erst im FormDestroy wieder frei.
Detlef
"Ich habe Angst vor dem Tag, an dem die Technologie unsere menschlichen Interaktionen übertrumpft. Die Welt wird eine Generation von Idioten bekommen." (Albert Einstein)
Dieser Tag ist längst gekommen
  Mit Zitat antworten Zitat
Kralle

Registriert seit: 31. Okt 2004
Ort: Bremerhaven
355 Beiträge
 
Delphi XE7 Professional
 
#16

AW: Lazarus: SaveToFile geht nicht

  Alt 17. Feb 2015, 15:05
Moin,

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
OS: Windows 10 Professional, Delphi XE7 Pro SP1 +(Mobilpack & FireDAC)
  Mit Zitat antworten Zitat
Benutzerbild von himitsu
himitsu

Registriert seit: 11. Okt 2003
Ort: Elbflorenz
44.033 Beiträge
 
Delphi 12 Athens
 
#17

AW: [gelöst] Lazarus: SaveToFile geht nicht

  Alt 17. Feb 2015, 15:09
Warum heißt das "sl"?

Und wieso ist das global?
Garbage Collector ... Delphianer erzeugen keinen Müll, also brauchen sie auch keinen Müllsucher.
my Delphi wish list : BugReports/FeatureRequests
  Mit Zitat antworten Zitat
BadenPower

Registriert seit: 17. Jun 2009
616 Beiträge
 
#18

AW: [gelöst] Lazarus: SaveToFile geht nicht

  Alt 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)
  Mit Zitat antworten Zitat
Kralle

Registriert seit: 31. Okt 2004
Ort: Bremerhaven
355 Beiträge
 
Delphi XE7 Professional
 
#19

AW: [gelöst] Lazarus: SaveToFile geht nicht

  Alt 17. Feb 2015, 15:51

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
OS: Windows 10 Professional, Delphi XE7 Pro SP1 +(Mobilpack & FireDAC)
  Mit Zitat antworten Zitat
Kralle

Registriert seit: 31. Okt 2004
Ort: Bremerhaven
355 Beiträge
 
Delphi XE7 Professional
 
#20

AW: [gelöst] Lazarus: SaveToFile geht nicht

  Alt 17. Feb 2015, 15:55
Moin,

Warum heißt das "sl"?
Weil StringListen irgendwie hier in den Beispielen immer "sl" heißen.

Und wieso ist das global?
Weil ich mein StringListe nicht in einer Procedure/Funktion definiere sondern halt global.

Gruß Heiko
OS: Windows 10 Professional, Delphi XE7 Pro SP1 +(Mobilpack & FireDAC)
  Mit Zitat antworten Zitat
Antwort Antwort
Seite 2 von 3     12 3      


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 18:15 Uhr.
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz