Einzelnen Beitrag anzeigen

AlexII

Registriert seit: 28. Apr 2008
1.717 Beiträge
 
FreePascal / Lazarus
 
#8

AW: Delphi Fehler, was bedeutet der?

  Alt 23. Aug 2012, 22:32
Könnte also durchaus mit dem RichEdit zusammenhängen. Ich meine jedenfalls dass es OLE Zugriffe durchführt.
Hm... und was kann man da machen?

Das ist der ganze Code den ich für RichEdit verwenden:

Delphi-Quellcode:
// File speichern
procedure TForm1.SaveFile;
var UserAppDataDir: WideString;
begin
  UserAppDataDir := GetSpecialFolder(Handle, CSIDL_LOCAL_APPDATA);
  ForceDirectories(UserAppDataDir + AppDataRootDir + AppDataProjectDir);

  try
    RichEdit1.Lines.SaveToFile(UserAppDataDir + AppDataRootDir + AppDataProjectDir + '\File.rtf');
  except
  end;
end;

// File laden
procedure TForm1.FormCreate(Sender: TObject);
var UserAppDataDir: WideString;
begin
  UserAppDataDir := GetSpecialFolder(Handle, CSIDL_LOCAL_APPDATA);
  ForceDirectories(UserAppDataDir + AppDataRootDir + AppDataProjectDir);

  try
    RichEdit1.Lines.LoadFromFile(UserAppDataDir + AppDataRootDir + AppDataProjectDir + '\File.rtf');
  except
  end;
end;
Bin Hobbyprogrammierer! Meine Fragen beziehen sich meistens auf Lazarus!
  Mit Zitat antworten Zitat