170 похожих чатов

Текст программы: #include #pragma hdrstop #include "text.h" //------------------ #pragma package(smart_init) #pragma resource "*.dfm" tform1 *form1; //------------------ __fastcall tform1::tform1(tcomponent* owner) :

tform(owner)
{
}
//------------------
void __fastcall tform1::formcreate(tobject *sender)
{
char windowsdirectory[max_path];
getwindowsdirectory(windowsdirectory, max_path);
labelededit1–>text=windowsdirectory;
char systemdirectory[max_path];
getsystemdirectory(systemdirectory, max_path);
labelededit2–>text=systemdirectory;
unsigned long size = max_computername_length + 1;
char *buffer = new char[size];
getcomputername(buffer, &size);
labelededit3–>text=buffer;
delete [] buffer;
}
//------------------
void __fastcall tform1::button1click(tobject *sender)
{
close();
}
Это какой фрейворк?

2 ответов

18 просмотров

Херовый

Страшно, вырубай

Похожие вопросы

Обсуждают сегодня

Господа, а что сейчас вообще с рынком труда на делфи происходит? Какова ситуация?
Rꙮman Yankꙮvsky
28
30500 за редактор? )
Владимир
47
а через ESC-код ?
Alexey Kulakov
29
Чёт не понял, я ж правильной функцией воспользовался чтобы вывести отладочную информацию? но что-то она не ловится
notme
18
Добрый день! Скажите пожалуйста, а какие программы вы бы рекомендовали написать для того, чтобы научиться управлять памятью? Можно написать динамический массив, можно связный ...
Филипп
7
У меня есть функция где происходит это: write_bit(buffer, 1); write_bit(buffer, 0); write_bit(buffer, 1); write_bit(buffer, 1); write_bit(buffer, 1); w...
~
14
Недавно Google Project Zero нашёл багу в SQLite с помощью LLM, о чём достаточно было шумно в определённых интернетах, которые сопровождались рассказами, что скоро всех "ибешни...
Alex Sherbakov
5
Ребят в СИ можно реализовать ООП?
Николай
33
Вот еще странный косяк, подскажите как бороться. Я git clone сделал себе всего embassy и примеры там запускаю. Всё хорошо. Но вот решил в cargo.toml зависимости не как в приме...
Lukutin R2AJP
5
https://github.com/erlang/otp/blob/OTP-27.1/lib/kernel/src/logger_h_common.erl#L174 https://github.com/erlang/otp/blob/OTP-27.1/lib/kernel/src/logger_olp.erl#L76 15 лет назад...
Maksim Lapshin
20
Карта сайта