Problem mit Memo1.Lines.LoadFromFile()

[Inventio]

Nee, der meint doch, dass das Format vom ersten argument net stimmt...Ich versteh halt net, warums net auf die normale Weise klappt....hat unter WinXp auch gefunzt

[Inventio]

Nun habe ich gerade bemerkt, dass ich die "saves.txt" nichtmal über den cmd befehl start saves.txt öffnen kann, denn er meint, dass diese datei nicht gefunden wurde...(ich bin mittels cd in den Richtigen Ordner navigiert)

[Maik81ftl]

Nun habe ich gerade bemerkt, dass ich die "saves.txt" nichtmal über den cmd befehl start saves.txt öffnen kann, denn er meint, dass diese datei nicht gefunden wurde...(ich bin mittels cd in den Richtigen Ordner navigiert)

nun in dem fall scheint es direkt an der File selber zu liegen.

[Inventio]

Nein. Ich habe gerade mal eine komplett neue Datei erstellt, auch mit anderem Namen. Funktionieren tuts immernochnicht. Komisch ist, dass ich vorhing mit der Methode File.Assign() auf die Datei zugreifen konnte, das hilft mir nur nichts, da ich die Textdatei Zeilenweise auslesen will und sich noch divesre andere Probs ergeben würden.

[Teekeks]

Code: Alles auswählen

Memo1.Lines.LoadFromFile(ExtractFilePath(Paramstr('saves.txt')));

ist ja auch nicht korrekt.
Richtig ist:

Code: Alles auswählen

Memo1.Lines.LoadFromFile(ExtractFilePath(Paramstr(0))+'saves.txt');

evtl auch noch

Code: Alles auswählen

Memo1.Lines.LoadFromFile(ExtractFilePath(Paramstr(0))+pathdelim+'saves.txt');

Musst du ausprobieren.

Was soll auch der Parameter Nummer 'saves.txt' bedeuten. Da wird ja Intern ein Array angesprochen.

[camper3000]

Wie wärs mit der Funktion?
Hab ich irgendwann ma geschrieben als ich so was auch brauchte.

Code: Alles auswählen

function stdpfad():string;
var s:string;
begin
  s:=application.ExeName;
  repeat
    delete(s,length(s),1)
  until s[length(s)]='\';
  stdpfad:=s;
end;

EDIT: Die Zeile muss until s[length(s)]='\'; heissen, die Anzeige rafft es nicht

Verwendung:

Code: Alles auswählen

memo1.lines.savetofile(stdpfad()+'hallowelt.txt')

Das sollte gehen, wenn lazarus bei Application.ExeName rumjammert, windows in die Units einbinden.
Wenn nix ausgegeben wird bei delete die Parameter length(s) und 1 vertauschen

hoffe konnte Helfen
mfg camper3000