procedure TForm2.Button1Click(Sender: TObject);
var sm : TSingleImage;
var mm : TMultiImage;
var y,x : integer;
var ss : string;
begin
if OpenDialog1.execute then
begin
y := opendialog1.Files.Count-1;
mm := TMultiImage.Create;
sm := TSingleImage.Create;
for x := 0 to y do
begin
ss := IncludeTrailingBackslash(ExtractFilePath(opendialog1.Files.Strings[x]));
memo1.Lines.Add(opendialog1.Files.Strings[x]);
sm.LoadFromFile(opendialog1.Files.Strings[x]);
if mm.ImageCount = 0 then
mm.Assign(sm)
else
mm.AddImage(sm) ;
end;
mm.SaveMultiToFile(ss+'vampyre.tif');
if mm.AllImagesValid then
label1.Text := 'Good'
else
label2.text := 'Bad';
end;
end;
Page created in 0.032 seconds with 20 queries.