ghost-dz

السلام عليكم تفضل function RevStr(S: string): string; var x: string; i: Integer; begin Result := ''; for i := 1 to Length(S) do begin Insert(S, x, 1); end; Result := x; end;

وعليكم السلام مادا تقصد بالضبط حجم الصورة ام الأبعاد

وعليكم السلام يوجد مكون BMDThread مجاني يساعدك على عمل ثريد بكل سهولة مع المكون مثال للاستعماله في مشاريك http://www.mitov.com/free_downloads