Hallo!
In einer Routine versuche ich ein RichEdit nicht über die Methode LoadFromFile mit den Inhalten einer Textdatei zu laden, da ich ständig große Dateien hatte und mir diese Methode dann immer einfach die Datei abgeschnitten hat. Nun habe ich eine eigene Routie in dem Stil (bei mir macht sie noch etwas mehr) geschrieben:
Delphi-Quellcode:
procedure LoadRichEdit(var RichEdit:TRichEdit; FileNameRich:String);
begin
{$I-}
// clear richedit
Richedit.Lines.Clear;
// open file to load
AssignFile(xTmpFile,FileNameRich);
Reset(xTmpFile);
if IOResult = 0 then
begin
while not(eof(xTmpFile)) do
begin
// read one line
readln(xTmpFile,sTempLine);
RichEdit.Lines.Add(sTempLine);
end;
CloseFile(xTmpFile);
end;
RichEdit1.SelStart := 0;
RichEdit1.Sellength := 0;
{$I+}
end;
Das funktioniert auch hervorragend, solange der eingeloggte Benutzer Schreibrechte auf die Directory hat, in welcher sich meine Programmexe befindet. Das zu lesende File befindet sich aber NICHT an diesem Platz. Gehe ich mit dem Debugger schrittweise durch das Programm, dann scheint es, das das IOResult immer <> 0 ist, sobald die Schreibrechte auf die Programmexe Directory abgeschaltet sind.
Kann mir bitte jemand erklären, was ich falsch mache??? Vielleicht bin ich ja auch nur zu blind.... Vielen Dank schon mal!
Matthias.