Bilder von gesamten Ordner verkleinern

[Matze]

Der Ordner wird ordnungsgemäß angelegt, aber es wird kein Bild darin gespeichert.

[Matze]

Falls es dich noch interessiert:

So überprüfe ich, welche Bilder angeklickt wurden:

Code:

procedure TForm1.GroesseaendernClick(Sender: TObject);
var j:integer;
begin
  CreateDir(Edit2.Text);

  for j:=0 to CheckListBox1.Count-1 do
  begin
    if CheckListBox1.Checked[j]=true then
      ResizePicture(Edit1.Text+'\'+CheckListBox1.Items.Strings[j],640, 480)
  end;
end;

[S - tefano]

So gut kenn ich mich mit den CheckListen nich aus, aber zum Experimentieren kannst du mal die Abfrage rausnehmen, ob das Item gecheckt ist.
Also einfach drauflos Speichern ohne zu gucken obs auch soll. Wenns dann immernoch nich gespeichert wird... hm. Aber wenn doch, dann muss du anders abfragen.

[Matze]

Speichern kann ich schon, aber nur, wenn ich die alten Dateien überschreibe.

[Matze]

Ich hab's rausbekommen. :D

Ich hab die Variable j nur beides Mal lokal deklariert. Wenn ich sie global deklariere, dann geht es. :hello:

@S - tefano: Dir nochmals: Vielen Dank!!

Gruß Matze

[S - tefano]

Hey, kein Problem :wink:
Danke auch an dich, dass du die endgültige Lösung gepostet hast...

[Matze]

Ist doch selbstverständlich, dass ich die Lösung poste, andere wollen ja auch wissen, woran es lag. :wink:

Gruß Matze