Wie beeinflusse ich WO eine Datei per Assign() erzeugt wird?

[Rapthor]

Hallo ...
mein Code lautet wie folgt

Delphi-Quellcode:

      
SetCurrentDir(Edit2.Text + '\' + tempdir + '\' + Kuerzel.Text);
AssignFile(sinfo,'Shardinfo.ini');
ReWrite(sinfo);
CloseFile(sinfo);

Aber anstatt die Datei wie angegeben in CurrentDir abzulegen, legt er sie im Edit2.Text - Verzeichnis ab ... also einige Ordner weiter vorne.
Was mach ich falsch ?

[sakura]

Lass Dir mal den Wert von Edit2.Text + '\' + tempdir + '\' + Kuerzel.Text anzeigen.

Ausserdem teste mal folgenden Code:

Delphi-Quellcode:

if not DirectoryExists(Edit2.Text + '\' + tempdir + '\' + Kuerzel.Text) then
  raise Exception.Create('Verzeichnis existiert nicht!');
SetCurrentDir(Edit2.Text + '\' + tempdir + '\' + Kuerzel.Text);
AssignFile(sinfo,'Shardinfo.ini');
ReWrite(sinfo);
CloseFile(sinfo);

......

[Luckie]

Warum überhaupt das aktuelle Verzeichnis setzen, wenn der Pfad eh im Edit drinsteht?

[Wormid]

Wie wäre es damit, einfach AssignFile mit nem kompletten Pfad aufzurufen?

AssignFile(F, 'C:\Programme\Blablubb\test.dat'); Gruß

Wormid

[Rapthor]

OK Problem gelöst ....
Voll doof dass in dem Fall kein Verzeichnis akzeptiert wird im Format xxxxxxxx.xxx also in meinem Fall war es "Startrampe.tmp"
Obwohl ich sonst im Laufe der Zeit noch keinerlei Probs mit dem Punkt im Verzeichnis hatte.

[Rapthor]

Neues Problem:

Ich habe die Datei jetzt erstellt und auch einen Eintrag eingefügt.
Nach dem ersten Mal kein Problem aber wie trage ich jetzt noch mehr Zeilen ein? Mit ReWrite erzeugt er ja immer nur eine völlig neue Datei.

Quelltext:

Delphi-Quellcode:

      AssignFile(sinfo,'Shardinfo.ini');
      Reset(sinfo);          { geht das damit ???}
      while not eof(sinfo) do ReadLn;
      Append(multi_mul);     { Append richtig ??? }
      CloseFile(sinfo);

Bei multi_mul handelt es sich um den Bezeichner einer String KONSTANTEN.

[Rapthor]

GELÖST ! Danke trotzdem

[Wormid]

Append öffnet eine Datei und setzt den Zeiger ans Ende der Datei...

Delphi-Quellcode:

AssignFile(F, 'datei.txt');
Append(F);
WriteLn(F, 'Angehängte Zeile...');
CloseFile(F);

WriteLn schreibt den Text ans Ende der Date (hängt ihn also an).
Rewrite erzeugt eine neue, leere Datei.
Mit Reset öffnest Du eine Bestehende Datei, und der Dateizeiger bleibt am Beginn stehen.

Um das ganze mit Reset zu lösen, sähe das ungefähr so aus:

Delphi-Quellcode:

AssignFile(F, 'datei.txt');
Reset(F);
Seek(F, FileSize(F));
WriteLn(F, 'Angehängte Zeile...');
CloseFile(F);

Gruß

Wormid