Projektstart autom. Archivierung

[Ati]

Das Problem war erstmal der Einstieg, aber da hab ich ja jetzt einige Ansätze. Alles weitere werde ich mir durch Tutorials oder der Boardsuche beibringen. Da ich ja auch in anderen Foren tätig bin weiß ich das die meisten User es hassen irgendwelchen Leuten die Programme von A bis Z vorzukauen. Sobald ich dann an einer Stelle wieder nicht weiterkomme melde ich mich dann wieder. Danke Euch erstmal für die Hilfestellung.

Ati

[Tpercon]

Du kannst ja z.B. anfangen in eine Listview Komponente mit 2 Spalten (Quelldatei und Zielordner) da mittels OpenDialog und nem Dialog zur Ordnerauswahl mal Einträge hinzuzufügen. Diese Einstellungen mußt du irgendwie noch speichern und laden.

[Ati]

Hhhhm. Ich hatte jetzt angefangen mit 2 Editfeldern ("von" und "nach"), 2 Memofeldern und einem Button. Beim Button-Klick erscheint der Opendialog und die ausgewählte Datei wird im 1.Editfeld angezeigt. Wollte es dann "ähnlich" mit dem 2. Editfeld machen. Weiter bin ich noch nicht, da ich jetzt erstmal in eine Besprechung muß. Meld mich aber morgen wieder ..........versprochen

Ati

[MrKnogge]

Zitat von MikeS:

nimm dich ein memo in das du die datein einträgst die archiviert werden
sollen und dann arbeitest du die in einer Schleife ab.

Da würde ich eher eine ListBox verwenden, so kann man leichter auf Dateien zugreifen, bzw. nicht so schnell versehentlich ändern.

Als Denkanstoss:

Hinzufügen zu deiner Liste:

Delphi-Quellcode:

procedure TForm2.Button3Click(Sender: TObject);
begin
  if OpenDialog1.Execute then 
    ListBox1.Items.Add(OpenDialog1.FleName);
end;

[Tpercon]

Noch besser als ne ListBox ist wie ich oben schon geschrieben habe eine ListView Komponente, da kann man doch schön Quellpfad und Zielordner gegenüberstellen.

[MrKnogge]

Ja, das wäre die perfekteste Lösung, allerdings würde wie eben geschrieben,
für den Anfang zwei ListBoxes nehmen, da diese für "Anfänger" eben leichter zu bedienen ist.

[Ati]

MrKnogge Du hast Recht. "listview" ist noch ein bischen verwirrend für mich. Werd also erstmal mit der einfacheren Methode weitermachen.

[Ati]

Hallöle,
ich hatte Euch ja angedroht das ich mich melden werde wenn ich nicht weiterkomme. Jetzt ist es soweit. Folgende Procedure startet er nicht.

Delphi-Quellcode:

procedure copyarchiv;
var
ndx : Integer;
begin
   for ndx := 0 to listbox1.items.count-1 do
    begin
      copyfile(pchar(listbox1.items[ndx]),pchar(listbox2.items[ndx]),false);
    end;
end;

Die Fehlermeldung lautet: Undefinierter Bezeichner "listbox1". Es kann sich hier nur um einen selten blöden Fehler handeln aber ich hab momentan echt ein Brett vor dem Kopf.

[Tpercon]

In der Unit wo dieser Code steht, da gibt es kein Listbox1.