Decoding, и еще маленькая просьба Вы не моглиб рассказать общий принцып работы этой программы :
procedure ShowPicture( path: string );
var
bm: TBitmap; // это присваиваем тип
p: PPoint; //что это?
l: TList ;//что это?
i, j: integer;
begin
bm := TBitmap.Create;
bm.LoadFromFile( path );
l := TList.Create; //что это?
for i := 0 to bm.Width do //что это?
for j := 0 to bm.Height do //что это?
begin
New( p );
p^.X := i; //что означают эти p^.X "^"
p^.Y := j;
l.Add( p );//что это?
end;
Randomize;
while l.Count > 0 do
begin
i := Random( l.Count );
p := l[i];
Form1.Canvas.Pixels[p^.X,p^.Y] := bm.Canvas.Pixels[p^.X,p^.Y];//что это?
l.Delete( i );//что это?
Application.ProcessMessages; //что это?
Form1.Caption := IntToStr( l.Count );//что это?
end;
l.Free;
bm.FreeImage; //освобождение памяти!
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
if OpenDialog1.Execute then
ShowPicture( OpenDialog1.FileName );
end;
|