Forum: Sonstige Fragen zu Delphi
Delphi
by AJ_Oldendorf,
24. Jun 2009
Dabei hab ich schon ne Brille auf uns erkenne trotzdem den richtigen Pfad nicht :-)
Naja, jetzt bin ich ein wenig schlauer :-)
Danke nochmals
Alex
Forum: Sonstige Fragen zu Delphi
Delphi
by AJ_Oldendorf,
24. Jun 2009
Alles klar,
ich teste das mal :-)
Mist, das hatte ich gar nicht gesehen... :wall:
Trotzdem danke
GEHT JETZT :-)
Forum: Sonstige Fragen zu Delphi
Delphi
by AJ_Oldendorf,
24. Jun 2009
Habs jetzt so angepasst und in FehlerCnt steht am Ende eine 2...
procedure TForm1.Button3Click(Sender: TObject);
var
F : TSearchRec;
TmpStream : TFileStream;
aCardinal : Cardinal;
Success : Boolean;
FehlerCnt : Integer;
Forum: Sonstige Fragen zu Delphi
Delphi
by AJ_Oldendorf,
24. Jun 2009
Dann liefert GetLastError etwas falsches.
Die Datei ist ja eindeutig da.
Da führt kein Weg dran vorbei!
Viele Grüße
Alex
Forum: Sonstige Fragen zu Delphi
Delphi
by AJ_Oldendorf,
24. Jun 2009
try
{ Versuchen, die Datei öffnend zu lesen }
TmpStream := TFileStream.Create (F.Name, fmOpenRead);
except
aCardinal := GetLastError;
ShowMessage(IntToStr(aCardinal));
Exit;
end;
Forum: Sonstige Fragen zu Delphi
Delphi
by AJ_Oldendorf,
24. Jun 2009
Hallo zusammen,
ich habe mal ein kleines Beispielprogramm gemacht um mein Problem zu erklären.
Zwei leere Textdateien werden unter C:\ (im Root) angelegt.
Es wird mit Findfirst und Findnext nach den beiden Dateien gesucht (nichts weiter gemacht) und mit FindClose wieder zugemacht.
Wenn ich jetzt mit TFileStream.Create auf die Dateien zugreifen will (natürlich nacheinander), dann geht es...