Pfade in Datei speichern und Zeilenweise auslesen

[Günni]

Sodele....bin nicht so erfahren was Delphi angeht deswegen frag ich jetz mal hier:

Folgendes Problem: Ich will Dateien von meiner Festplatte öffnen(mit Open Dialog) klappt perfekt und dann deren Pfad in ne Textdatei schreiben(klappt nicht so ganz zeilenweise*g*)....und dann will ich später Zeile für Zeile die Pfade wieder aus der Datei auslesen.

Geht das? Und v.A. wie? Soll ich txt oder ini nehmen?

Und wie ich schon erwähnte ich bin nich tgerade der Profi......bitte erklärts dann einfach.....aber ich denke ihr kriegt das schon hin*g*

Danke schonmal im Vorraus

[Schuster]

So geht mal das Zeilenweise reinspeichern in eine txt datei:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var  s1: TStringList;
var  s,pfad: String;
begin
    opendialog1.execute;
    pfad:= OpenDialog1.FileName;

  s := ExtractFilePath(Application.ExeName)+ 'Datipfad.txt';
  s1:= TStringList.Create;
  try
    if FileExists(s)
      then s1.LoadFromFile(s);
    s1.Add(Pfad);
    s1.SavetoFile(s);
  finally
    s1.Free;
  end;
end;

[Luckie]

Zeig doch mal Code, wie du es probiert hast.

Ich würde es mit einer StringListe machen.

[Günni]

@shuster: Als erstes mal Vielen vielen Dank klappt wunderbar so...nur wie kann ich das jetz auch zum späteren Zeitpunkt wieder Zeile für Zeile auslesen?


@Luckie:den genauen Code hab ich nicht mehr, da ich immer rumprobiert habe und Delphi sich immer verabschiedet hat aber ich hab das mit writeln probiert.....die erste Zeile konnt ich immer schreiben aber keine anderen

[Luckie]

Delphi-Quellcode:

type
  TForm1 = class(TForm)
    Button1: TButton;
    OpenDialog1: TOpenDialog;
    Button2: TButton;
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private-Deklarationen }
    sl: TStringList;
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure AddFiles(var sl: TStringList; Filename: String);
begin
  sl.Add(Filename);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  sl := TStringList.Create;
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
  sl.Free;
end;

procedure TForm1.Button2Click(Sender: TObject);
var
  i: Integer;
begin
  for i := 0 to sl.Count- 1 do
    ShowMessage(sl.Strings[i]);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  if OpenDialog1.Execute then
    AddFiles(sl, OpenDialog1.FileName);
end;

[jfheins]

Bei einer Stringlist gibt es übrigens di Methoden SaveToFile und LoadFromFile

[Günni]

ui jetz wirds kompliziert

also es ist so,dass ich einen Mp3-Player programiert habe (das ist mein erstes richtiges Programm,das ich in Delphi geschreiben habe). Es funktioniert alles einwandfrei. Und jetz würd ich gern noch ne Playlist hinzufügen. Der Benutzer wählt die Dateien per OpenDialog das Programm zeigt sie in einer ListBox an und speichert die Pfade gleichzeitig in einer txt-Datei ab.Bis hierher funktioniert jetzt alles super. Nun hab ich auch eine Progressbar die den aktuellen Stand der abgespielten Datei zeigt.Wenn die jetzt das Max erreicht hat möchte ich, dass die nächste Zeile der Playlist, die ja jetzt in eine txt-Datei geschrieben wurde abspielt wird ,und wenn die zuende ist die nächste und dann wieder und so weiter.

Ich hoffe ihr versteht nun meine Frage besser

[fkerber]

Hi!

Jepp, aber du machst am besten eine neue Frage auf, weil das mit dem eigentlichen Problem nichts mehr zu tun.

Nur noch so viel dazu:
Wir hatten das kürzlich erst, such mal danach.


Ciao Frederic

[Günni]

ja doch hats schon ich würd gern wissen wie ich ne textdatei zeile um zeile ausleese

[fkerber]

Hi!

Axo, ich dachte das hättest du, und es ginge dir ums abspielen, sorry.

Einfach so:

Delphi-Quellcode:

var s2: TStringlist;


 s2:=TStringlist.Create;
Try
 s2.LoadFromFile(Filename);
Finally
 s2.Free;

Ciao Frederic