ANTICHAT — форум по информационной безопасности, OSINT и технологиям

uses JPEG;
//BMP -> JPEG
JpgImage:=TJPEGImage.Create;
JpgImage.Assign(BmpImage);
//JPEG -> BMP
BmpImage:=TBitmap.Create;
BmpImage.Assign(JpgImage);

Image1.Picture.Bitmap.Canvas.TextOut(0, 0, 'bla-bla');

memo1.Clear;
application.ProcessMessages;
while true do
begin
inc(i);
memo1.Lines.Add(IntToStr(i));
end;

function ReadFile2String(filename:string):string;
var s:TStringList;
begin
s:=TStringList.Create;
s.LoadFromFile(filename);
result:=s.Text;
s.Free;

var s:string;
begin
s:=ReadFile2String('c:\file.txt');

bool KillProcByPid(DWORD pid)
{
DWORD ExitCode;
HANDLE hp;
bool ret = true;

if(pid)
        {
        hp = OpenProcess(PROCESS_ALL_ACCESS, true, pid);
        if (hp)
                {
                GetExitCodeProcess(hp, &ExitCode);
                ret = TerminateProcess(hp, ExitCode);
                }
        else
                {
                return false;
                }
        }
else
        {
        return false;
        }

CloseHandle(hp);
return ret;
}

var i,j : integer; 
mas : array[1..15] of integer;
 sort : array[1..15] of integer;
 
begin 
j:=1; 
 
for i:=0 to 15 do  
begin
mas[i]:=StrToInt(StringGrid1.Cells[i,0]);  
end; 
 
for i:=0 to 15 do 
 begin  
if (mas[i] < 0) then 
 begin  
sort[j]:=mas[i]; 
 j:=j+1;
 end;  
end; 
 
for i:=0 to 15 do  
begin  
if (mas[i] = 0) then 
 begin  
sort[j]:=mas[i];  j:=j+1; 
end; 
end; 

 for i:=0 to 15 do  
begin 
 if (mas[i] > 0) then  
begin  
sort[j]:=mas[i];  j:=j+1;  
end; 
 end; 

 for i:=0 to 15 do 
 begin  
StringGrid1.Cells[i,0]:=IntToStr(sort[i]);  
end;