Forum: Object-Pascal / Delphi-Language
by -Phantom-,
3. Nov 2010
i2 := add.fiels.count; So beim zweiten klickt auf den Button fängt das ja wieder von vorne an und die ersten Daten werden überschrieben !
Forum: Object-Pascal / Delphi-Language
by -Phantom-,
3. Nov 2010
Danke so geht es. Ähmm... nein ich trage sie nicht nachträglich nach so sieht das nun bei mir aus
var
i,i2,iz: Integer;
neudatei : String;
item : TLISTitem;
begin
dateilist.Enabled := false;
lblstatus.Caption := 'Dateien werden hinzugefügt...';
fneu.Zip.DLLDirectory := ExtractFilePath(ParamStr(0));
Forum: Object-Pascal / Delphi-Language
by -Phantom-,
3. Nov 2010
Hey Leute,
ich komme hier grade nicht weiter.:roll:
Ich will Dateien in einer Listview eintragen.
if add.FileName <> '' then begin
fneu.zip.ZipFileName := lblpfad.Caption;
i2 := add.Files.Count;
for i := 0 to i2 - 1 do begin
neudatei := Extractfilename(add.Files);