Кусок Кода С Delfi На С

  • Автор темы x3zz
  • Дата начала
Статус
Закрыто для дальнейших ответов.
X

x3zz

#1
вот кусок который хочу перевести, непонимаю что обозначают :=, repeat на си такова небывало


procedure TForm1.Button1Click(Sender: TObject); -- ну это не надо
var
winH: hwnd; // Хэндл очередного окна
WinTitle: array[0..255] of char; // Заголовок очередного окна
begin
winH := Form1.Handle; // Окно с которого начинаем поиск всех окон
repeat
GetWindowText(winH, WinTitle, 255); // Записать в WinTitle заголовок окна
Memo1.Lines.Add(WinTitle); // Добавить в список заголовок окна.
winH := GetWindow(winH, GW_HWNDnext); // Получить следующее окно
until (winH=0) // Если дескриптор окна=0 останавливаем поиск. Окно с нулевым дескриптором есть рабочий стол.
end;
 
R

rrrFer

#2
:= - тоже самое что = на си
repeat until - аналог do{}while
вроде бы, я паскаль в школе тока учил и могу ошибаться.
 
X

x3zz

#3
void __fastcall TForm1::Button1Click(TObject *Sender)
{ int main(void)
{
hwnd winH;
char WinTitle[255] ;

winH = Form1->Handle;
do {
GetWindowText(winH, WinTitle, 255); //
Memo1->Lines->Add(WinTitle);
winH = GetWindow(winH, GW_HWNDnext);
}while (winH=0);

};

}

переделал, а компилятор почему то ругается
 
M

majjestik

#4
Переделал твой код. Если честно понятия не имею что он делает и не хочу разбираться, но компилятор больше ошибок не выдает =)

void __fastcall TForm1::Button1Click(TObject *Sender)
{

HWND winH;
char WinTitle[255] ;

winH = Form1->Handle;
do {
GetWindowText(winH, WinTitle, 255); //
Memo1->Lines->Add(WinTitle);
winH = GetWindow(winH, GW_HWNDNEXT);
}
while (winH==0);

}
 
P

pRoGeR

#5
Переделал твой код. Если честно понятия не имею что он делает и не хочу разбираться, но компилятор больше ошибок не выдает =)

void __fastcall TForm1::Button1Click(TObject *Sender)
{

HWND winH;
char WinTitle[255] ;

winH = Form1->Handle;
do {
GetWindowText(winH, WinTitle, 255); //
Memo1->Lines->Add(WinTitle);
winH = GetWindow(winH, GW_HWNDNEXT);
}
while (winH==0);
}

В третьей строке синтаксическая ошибка
 
Статус
Закрыто для дальнейших ответов.