bilder einlesen und unter neuem namen speichern

[shirocko]

hi leute,
ich habe schon im forum gesucht, bin aber nicht wirklich draus schlau geworden, bzw. hab nicht wirklich was passendes gefunden.
Ich habe folgendes vor. Ich möchte ein Liste von Dateien in einem Ordner einlesen. Die Dateiname möchte ich z.B. in einem Array speichern, in eine andere Form bringen und die neuen Dateinamen jeweils speichern zum passenden Bild.
Mein Problem besteht nun darin:
1. wie lese ich eine reihe von dateien in einem ordner ein und speicher diese
2. wie speicher ich die fertigen namen wieder ab zur passenden datei

danke schonmal im voraus für eure hilfe.

[DeddyH]

Such mal nach FindAllFiles, da kannst Du schön sehen, wie manmit FindFirst, FindNext und FindClose arbeitet. Und statt eines Arrays solltest Du vielleicht eine StringListe verwenden, die kannst Du mit SaveToFile ganz easy abspeichern.

[shirocko]

hi gibs das nicht einen einfachen dialoig zum datei einlesen und speichern in array z.b. und dann dieses speichern ist ja okay. aber es muss doch einen dialog geben zum einlesen mehrerer dateien. oder nicht.

[DeddyH]

Ich weiß nicht, ob ich Dich richtig verstehe, aber schau Dir mal den TOpenDialog an (mit der Option ofAllowMultiSelect).

[shirocko]

hm okay soweit bin ich jetzt, also ich hab über eine Schaltfläche "Durchsuchen" jetzt den Dialog geöffnet und man kann mehrere Dateien auswählen. wenn ich jetzt über die eigenschaft opendialog1.filename gehe habe ich ja nur den pfad zu einer datei, bei files geht es ja für mehrere. so nun will ich allerdings nur den dateinamen und nicht den pfad zum bearbeiten. wie speicher ich jetzt nacheinander die dateinamen von den ausgewählten dateien in einem array oder einer stringliste wie du meintest?

[DeddyH]

Z.B. so:

Delphi-Quellcode:

var sList: TStringList;
    i: integer;
begin
  if OpenDialog1.Execute then
    begin
      sList := TStringList.Create;
      try
        for I := 0 to OpenDialog1.Files.Count - 1 do
          sList.Add(ExtractFileName(OpenDialog1.Files[i]));
        sList.SaveToFile('C:\Test.txt');
      finally
        sList.Free;
      end;
    end;  
end;

[shirocko]

okay danke das funktioniert soweit, jetzzt muss ich ja die txt datei auslesen, um die dateien umzubennen. wie heist das die funktion?

[DeddyH]

Welche? Zum Auslesen oder zum Umbenennen?

[shirocko]

naja ich dachte mir das jetzt so:
1. ich lese die einzelnen zeilen der txt datei aus
2. schreibe den dateinamen jeweils nach einem bestimmten muster um und speicher die datei mit einer schleife jeweils z.b. im ordner c:\test

so jetzt die frage:
wie kann ich nacheinander die zeilen der txt datei auslesen und wie ist die funktion SaveToFile definiert.

[DeddyH]

Schau mal in die Hilfe zu TStringList. Das Gegenstück zu SaveToFile heißt LoadFromFile.