Einzelne Elemente aus Datei auslesen und in Datei Speichern [UPDATED QUESTION]

[Obelisk2k5]

Hm, Schade, die Datenspeicherung klappt bei mir gar nicht.
Zwar bekomme ich mit nem SaveDialog das Fenster auf, die Datei scheint auch angelegt zu werden, nur ist sie trotzdem nicht existent.

In der Formularunit:

Delphi-Quellcode:

procedure TfrmMain.MnDateispeichernClick(Sender: TObject);
begin
  SaveDialog.Filter := '*lyr';
  SaveDialog.DefaultExt := '*lyr';
  SaveDialog.InitialDir := ExtractFilePath(Application.Exename);
  if SaveDialog.execute then
    if not isreadonly(SaveDialog.FileName) then
     if writeToFile(SaveDialog.FileName)then
        refreshLists; //Erneuert den Inhalt einer listbox, funktioniert auch 
end;

isreadonly:

Delphi-Quellcode:

function isReadOnly(fileName: string): boolean;
begin
  if FileExists(filename) then
    if FileIsReadOnly(fileName) then
      if MessageDlg ('Datei ist schreibgeschützt, soll der Schreibschutz entfernt werden ?',
               mtInformation, [mbYes, mbNo], 0) = mrYes then
                begin
                isReadOnly := not FileSetReadOnly(filename, false);
                end
  else
    isReadOnly := true;
    isReadOnly := FileIsReadOnly(fileName)
end;

writetofile

Delphi-Quellcode:

function writeToFile (const myFilename: string): boolean;
var
  handle : file of TElement;
  tempElement : TElement;
  i : longint;
begin
  writeToFile := false;
  try
  AssignFile(handle, myFilename);
    try
      Rewrite(handle);
       for i := 1 to getElementCount do
        begin
          tempElement := getElement(i); 
          write(handle, tempElement);
          writeToFile := true;
        end;
    finally
      closeFile(handle);
    end
  except
    on E: EInOutError do  showmessage('Datei kann nicht gespeichert werden.')
  end
end;

Ich weiß, es ist viel, aber vielleicht hat ja doch wer Lust, mal reinzuschauen...

[DeddyH]

Bei isreadonly scheinen da ein paar begins und ends zu fehlen (zumindest lässt die Einrückung darauf schließen). Bei writetofile benutzt Du vermutlich einen falschen Index, da dynamische Arrays immer 0-indiziert sind, d.h. das erste Element hat den Index 0 und das letzte den Index Count - 1.

[idefix2]

isreadonly:
Wenn der Code sonst mehrdeutig wäre, gehört ein ELSE immer zum LETZTEN IF, zu dem es passen könnte.
Wenn also FileExists(filename) oder FileIsReadOnly(fileName) als Ergebnis false liefern, wird also der Rückgabewert der Funktion undefiniert sein, die ersten beiden IF haben kein ELSE.

edit:
könnte man meinen, wenn man Deiner Einrückung glaubt.

Aber in Wirklichkeit ist das ganze geschachtelte if statement rein dummy, weil das letzte Statement der Funktion wird immer aufgerufen und überschreibt das Result, egal was vorher bei den ifs berechnet worden ist.

[Obelisk2k5]

Danke für die Hilfe, jetzt funktioniert alles wie es soll und ich kann mich dem nächsten Problem witmen.