Delphi Tipps, Tricks & Quelltexte

Vorlage

Erklärung
Mit der Opendialog-Komponente wählen wir mehre Dateien gleichzeitig (<Strg>&Datei anklicken). Diese öffnen wir dann und geben jeweils die erste Zeile der geöffneten Dateien in einem Memofeld aus.

Quelltext
P.S.:Bei der OpnDlg Komponente muss die Option ofAllowMutliSelect auf true stehen (Options-->ofAllowMutliSelect)

procedure TForm1.Dateienaussuchen1Click(Sender: TObject);
var i   : integer;
    st : TStringlist;
begin
     Memo1.text := '';
     //Wenn Dateien ausgesucht wurden, dann weitermachen
     if OpenDialog1.Execute then
     Begin
          //Testen ob nur eine Datei ausgesucht wurde...
          if OpenDialog1.Files.Count = 1 then
          Begin
              //Tatsächlich nur eine Datei ausgesucht :)
               showmessage('Sie haben nur eine Datei ausgesucht!!!');
               Memo1.Text := 'Sie haben zu wenig Dateien ausgesucht...'
          end else
          Begin
               //Ja genau, mehr als eine Datei, dann lasst uns anfangen!!
               ST := Tstringlist.Create;
              for i:=0 to OpenDialog1.files.count -1 do
              Begin
              {Jeden Dateinamen extrahieren, in der TStringlist laden
                und die Erste Zeile in die Memo Komponente schreiben}
               St.LoadFromFile(Opendialog1.files.Strings[i]);
               Memo1.Text := Memo1.text + St.Strings[0] + #13+#10;
              end;
          end;
     end;
end;