Kodda sorun bulamadım ama nedense yinede dosyayı eklemiyor burada kodun amacı varolan eklenmiş dosyayı bir daha eklememek ayrıca yanına bir de mesaj vermek.
Dosyalar : TListBox
Diyalog : TOpenDialog - AllowMultipleSelect açık.
Lütfen yardım ederseniz sevinirim.
Kod: Tümünü seç
procedure TForm1.Button1Click(Sender: TObject);
var i, i2: integer;
begin
Diyalog.FileName := '';
Diyalog.Execute;
if Diyalog.FileName <> '' then
begin
for i := 0 to Diyalog.Files.Count - 1 do
begin
if Dosyalar.Items.Count > 0 then
begin
for i2 := 0 to Dosyalar.Items.Count - 1 do
begin
if Dosyalar.Items.Strings[i2] = Diyalog.Files.Names[i] then
begin
ShowMessage(Diyalog.Files.Names[i] + ' zaten listenin içinde.');
Diyalog.Files.Values[Diyalog.Files.Strings[i]] := '';
end;
end;
if Diyalog.Files.Strings[i] <> '' then
begin
Dosyalar.Items.Add(Diyalog.Files.Strings[i]);
end;
end; // if dosyalar items count
end; //for dialog files count
end; //if dialog filename esit degildir
end;
