Savetofile Problem

[himitsu]

Abgesehn davon, wird nicht umsonst ständig darauf hingewiesen, daß keine Leeren verwendet werden sollen, denn so bekommt ja keiner den Grund für einen Fehler mit,
bzw, es fällt im fertigen Programm nichtmal auf, daß überhaupt ein Fehler auftritt und man wundert sich nur, daß irgendwas fehlt.

Delphi-Quellcode:

try
   ...
except
  {nix}
end;

oder Dergleichen,

Delphi-Quellcode:

try
   ...
except
  Result := False;
end;

wo die Fehlermeldung einfach so ignoriert wird.



Und welchen Wert hat "pfad"?

Zitat von mkinzler:

Sollte wohl eher ... heissen

Könnte auch ganz entfallen, da ForceDirectories dieses intern auch prüft.

ForceDirectories = prüfe nach, ob Verzeichnis existiert und wenn nicht, dann erstelle es

[Luckie]

@himitsu: Ich kaufe ein "E" und will lösen "Exceptions".

[DMonkey]

naja das problem ist das er es nicht speichern KANN weil das noch geöffnet ist und ich will wissen,wie ich meinem programm sage,dass es nach dem speichern die datei in rughe lassen soll.

[Luckie]

Dann gib doch die Stringliste nach dem Speichern mal frei, wie ich gesagt habe, und guck, was passiert.

[DMonkey]

Funktioniert Nicht,denn er kann die datei immernoch nicht reinladen

[himitsu]

Wie gesagt, an dem SaveToFile sollte es nicht liegen.

Delphi-Quellcode:

procedure TStrings.SaveToFile(const FileName: string; Encoding: TEncoding);
var
  Stream: TStream;
begin
  Stream := TFileStream.Create(FileName, fmCreate);  // Dateihandle erstellen
  try
    SaveToStream(Stream, Encoding);
  finally
    Stream.Free;  // und hier wird das Dateihandle wieder freigegeben
  end;
end;

Gleiches bei LoadFromFile, also liegt es nicht an den beiden Methoden,
und du solltest den Fehler auch mal an anderer Stelle suchen.
(unter Umständen kann dieses auch der Virenscanner sein)

[Luckie]

Boah, ich habe keine Ahnung, was du da mit der Stringliste machst:

Delphi-Quellcode:

procedure Save(Text: string; Filename: string);
var
  sl: TStringList;
begin
  sl := TStringList.Create;
  try
    try
      sl.Text := Text;
      sl.Lines.SaveToFile(Filename);
    except
      on E: Exception do
        raise E.Create(E.Message);
    end;
  finally
    sl.Free
  end;
end;

function Load(Filename: string): string;
var
  sl: TStringLList;
begin
  sl := TStringList.Create;
  try
    try
      sl.Lines.LoadFromFile(Filename);
     Result := sl.Text;
    except
      on E: Exception do
      raise E.Create(E.Message);
    end; 
  finally
    sl.Free;
  end;
end;

// Aufruf speichern
try
  Save(Memo1.Text, 'C:\foo\bar.cfg');
except
  on E: Exception do
    ShowMessage(E.Message);
end;

// Aufruf laden
try
  Memo1.Text := Load('C:\foo\bar.cfg');
except
  on E:Exception do
    ShowMessage(E.Message);
end;

Es könnten noch kleinere Fehler drin sein. Habe das nur mal eben in Notepad runtergetippt.

[DMonkey]

ich denke das problem kommet weil ich auf den text noch zugreife,indem ich ihn anderen komponenten als eigenschaft zuweise.könnte das sein?

[Luckie]

Eigentlich nicht. Es geht ja um die Datei und die wird von den Texteigenschaften der anderen Komponenten ja nicht blockiert. Greift eventuell noch ein anderer Prozess auf die Datei zu?

[DMonkey]

ne,das wundert mich generell das das nicht geht,denn ioch mache sowas oft,aber gibt es eine andere möglichkeit text abzuspeichern als mit tstringlist oder memo?