Datei öffnen

[delphi_newbie_123]

hi,
ich würde gerne auf einen buttonclick einen dialog bekommen, mit dessen hilfe ich
eine .txt datei auf der festplatte auswählen kann.
das erreiche ich hiermit

Delphi-Quellcode:

OpenDialog1.Execute;

wie kann ich aber nun den pfad der ausgelesenen datei in eine variable schreiben lassen?
danke sehr für jeden tipp

[SirThornberry]

der Pfad ist dann in "Opendialog.Filename" (bei einfacher Dateiauswahl (standard))

[delphi_newbie_123]

danke werde ich gleich mal testen.
weisst du vielelciht auch wie man nur die endung .txt zum öffnen freigeben kann?
habs mit filter versucht klappt irgendwie nicht :(

[Pr0g]

Du solltest den Rückgabewert von "Execute" auch nutze, damit dein Code zum Öffnen nur dann aufgerufen wird, wenn der User den Dialog auch bestätigt hat:

Delphi-Quellcode:

if OpenDialog1.Execute then
  //Datei laden

MfG Pr0g

Edit: Über die Filter Eigenschaft kannst du angeben, welche Dateien angezeigt werden sollen, für Textdateien wäre es folgender Wert: "Textdateien (*.txt)|*.txt". Um zu prüfen, weche Dateiendung die Datei dann wirklich hat, kannst du die Funktion "ExtractFileExt()" nehmen.

[SirThornberry]

um nur txt zur auswahl zu geben ist der Filter da. Hast du den Filter im Dialog auch richtig eingegeben oder hast du den Wert direkt im Objectinspektor eingegeben? bei Direkteingabe muss das ganze in folgendem Format sein "Beschreibung der Dateiendung|*.Dateiendung"

[delphi_newbie_123]

danke sehr,
habs hinbekommen!

[delphi_newbie_123]

jetzt habe ich den path zu der datei.
kann ich damit nun die datei löschen und am selben ort eine leere datei mit dem gleichen namen anlegen?
ich würds jetzt folgendermaßen machen:
erstaml die datei löschen, dann denn string so verarbeiten bis ich, den dateinamen von hinten weggelöscht habe.
in diesem verzeichnis dann die neue datei anlegen.
ich weiss auch wie der name genau lautet, da ändert sich also ncihts.
mir fehlen nun die befehle zum löschen und erstellen einer leeren datei.
könnte mir da jemand vielleciht noch kurz weiterhelfen.
oder gehts vielelciht noch einfacher das zu realisieren?
danke euch

[Luckie]

DeleteFile. Erstellen kommt drauf an was. Eine Textdatei kann man relativ einfach mit einer Stringliste oder den alten Pascal Routinen. Dann gibt es noch die API Funktionen oder Streams.

[delphi_newbie_123]

also gehts ca so ?

Delphi-Quellcode:

lst := TStringList.Create;
try
  lst.SaveToFile('...');
finally
  lst.free;
  end;

[SirThornberry]

dann kannst du auch

Delphi-Quellcode:

var LStream: TStream;
begin
[...]
  //erstellen einer leeren Datei
  LStream := TFileStream.Create(Filename, fmCreate);
  LStream.Free;
[...]