Delphi для начинающих

Форум программистов и сисадминов Киберфорум

Войти

Регистрация
Восстановить пароль

Другие темы раздела
Delphi Вычитание элементов массива https://www.cyberforum.ru/ delphi-beginners/ thread1974071.html Доброго времени суток,уважаемые форумчане! Возникла заминка. В верхнюю таблицу ввожу значения для массива Xt с данными (любые 6 чисел), далее во вторую таблицу ввожу числа 1-6(номера элементов Xt) следующим образом: \begin{vmatrix}1 & 2 & 3\\ 4 & 5 & 6\end{vmatrix} Далее нажимаю на кнопку и нахожу разности элементов массива Xt, пробегая по таблице 2 таким образом: \begin{vmatrix}1\Rightarrow ...	Можно ли, перевести, то что написано в Едите, на действие нажатия кнопки Delphi Можно ли, перевести, то что написано в Едите, на действие нажатия кнопки. То есть, в едит пропишу = (PlaySound('D:\1.wav', 0, SND_ASYNC);) и нажму на кнопку, и начнет проигрывать звук. Edit1.Text:=PlaySound('D:\1.wav', 0, SND_ASYNC); Edit1.Text:=Form1.Events.OnCreate;
Delphi Создаю переводчик, с голосовыми ответами Создаю переводчик, с голосовыми ответами. Как, в программе, можно добавить, звуковые ответы? https://www.cyberforum.ru/ delphi-beginners/ thread1974018.html	Delphi Перехват API, SetWindowTextW https://www.cyberforum.ru/ delphi-beginners/ thread1973999.html var OrgCreateMutexA: function(lpMutexAttributes: PSecurityAttributes; bInitialOwner: BOOL; lpName: PAnsiChar): THandle; stdcall; function NewCreateMutexA(lpMutexAttributes: PSecurityAttributes; bInitialOwner: BOOL; lpName: PAnsiChar): THandle; stdcall; begin ShowMessage(lpName); end; HookProc('kernel32.dll', 'CreateMutexA', @NewCreateMutexA, @OrgCreateMutexA); Так перехватываю создание...
Delphi Игра Помогите пожалуйста сделать что бы в DrawGrid при удалении блока одинакового цвета, квадраты которые находились на верху падали вниз, тем самым заполняли пустое пространство	Delphi Delphi + Яндекс карты Здравствуйте. Есть задача получить карту яндекса определенного размера. Static API не подходит в виду ограничения 650*450 у бесплатной версии. Отыскал способ получения необходимой карты путём открытия html файла следующего содержания: <!DOCTYPE html> <html> <head> <title>Yandex Map</title> <meta charset="utf-8"> <script... https://www.cyberforum.ru/ delphi-beginners/ thread1973972.html
Delphi заполнение одинаковыми цифрами диапазон в delfi https://www.cyberforum.ru/ delphi-beginners/ thread1973953.html Здравствуйте всем как можно вот этому диапазону(обведенным) задать значение 1	Delphi Сделать программу шифрации сообщения в азбуку Морзе и обратно Вот само задание Разработать программу шифрации сообщения в азбуку Морзе и обратно. Предусмотреть вариант настройки интерфейса, с запоминанием его при выходе из программы. Программа должна иметь интуитивный пользовательский интерфейс, иметь защиту от некорректного ввода и сопровождать действия пользователя всевозможными подсказками и сообщениями об ошибках.
Delphi При сортировке не учитываются отрицательные элементы https://www.cyberforum.ru/ delphi-beginners/ thread1973825.html Доброго времени суток! При написании кода возникло 2 проблемы: 1) При сортировке не учитываются отрицательные элементы; 2) Необходимо также организовать сортировку по возрастанию. Сам код: procedure TForm2.Button1Click(Sender: TObject); const str=12; var a:array of real; i,j:integer; buf,summ:real; s,prob:string;	Delphi Реализация системы счисления Как можно реализовать систему счисления 2,8,10 и 16 системы для калькулятора. Перевод системы должен производится по нажатию на RadioButton, короче чтоб так же работала как у "Калькулятора Windows". Только исходник вот этого калькулятора, который показан ниже на скриншоте не кидайте, я там программный код разобрать не могу. https://www.cyberforum.ru/ delphi-beginners/ thread1973814.html
Где объявляется MAPVK_VK_TO_VSC? (Delphi 2009/Windows 7) Delphi Получаю ошибку везде где в моем коде используется MAPVK_VK_TO_VSC Undeclared identifier: 'MAPVK_VK_TO_VSC' Собственно, MapVirtualKey()в котором это значение используется,объявлено в модуле Windows и не вызывает ошибки.Так в каком же модуле объявлено MAPVK_VK_TO_VSC? Привожу листинг кода: LCNTRL.Itype := INPUT_KEYBOARD; LCNTRL.ki.wVk := VK_LCONTROL; LCNTRL.ki.dwFlags := 0; LCNTRL.ki.wScan...	Delphi Учет товаров в магазине. https://www.cyberforum.ru/ delphi-beginners/ thread1973699.html Всем привет, кто может, сделайте проект: учет товаров в магазине. также необходим листинг программы(скриншоты всех действий с комментариями). Сломался компьютер а завтра сдавать проект. кто может, помогитте

New_programma

0 / 0 / 0

Регистрация: 22.04.2016

Сообщений: 65

Можете ли вы мне, объяснить каждую строчку. "Зачем?" и "для чего?". Спасибо! - Delphi - Ответ 10399676

04.05.2017, 09:50. Показов 816. Ответов 10

Метки (Все метки)

Author24 — интернет-сервис помощи студентам

Delphi

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
 
type
  TForm1 = class(TForm)
    Button1: TButton;
    Memo1: TMemo;
    Edit1: TEdit;
    Edit2: TEdit;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
//Желательно, ниже строчки поподробнее ...
function Get_rus(s: string): string;
var
a : integer;
begin
a:= pos('|',s);
Get_rus:=copy(s,1,a-1);
end;
 
function Get_eng(s: string): string;
var
a : integer;
begin
a:= pos('|',s);
Get_eng:=copy(s,a+1,Length(s));
end;
 
procedure TForm1.Button1Click(Sender: TObject);
var
i: integer;
begin
Edit2.Text:='';
if Edit1.Text <> '' then
begin
for i:= 0 to memo1.Lines.Count do
begin
if Edit1.Text = Get_rus(Memo1.Lines.Strings[i]) then
Edit2.Text:= Get_eng(Memo1.Lines.Strings[i]);
end;
end;
 
if Edit2.Text = '' then ShowMessage('слово в словаре не найдено')
end;
 
end.

Вернуться к обсуждению:
Можете ли вы мне, объяснить каждую строчку. "Зачем?" и "для чего?". Спасибо! Delphi

Следующий ответ

Заказать работу у эксперта

Programming

Эксперт

94731 / 64177 / 26122

Регистрация: 12.04.2006

Сообщений: 116,782

04.05.2017, 09:50

Готовые ответы и решения:

Можете пожалуйста объяснить каждую строчку в этом коде:
Можете пожалуйста объяснить каждую строчку в этом коде: def all_perms(arr): if len(arr)==1:...

можете объяснить для чего нужно
connect(line,SIGNAL(textChanged(QString)),this,SLOT(TextChanged(QString))); void...

Можете объяснить, для чего нужна 9 строка?
#include <stdio.h> int main () { long n, i; unsigned long f = 1; printf ("vvedite...

Добрый вечер, можете объяснить, пожалуйста, для чего в этом коде 2>nul
@echo off set "dir0=C:\Users\Rustam\Desktop\Rustam1" set "dir1=Directory" set "dir2="EXE"...

Объяснить каждую строчку программы
помогите пожалуйста нужно объяснение каждой строчки uses crt; var n,i,j:integer; ...

	04.05.2017, 09:50

IT_Exp

Эксперт

87844 / 49110 / 22898

Регистрация: 17.06.2006

Сообщений: 92,604

04.05.2017, 09:50

Помогаю со студенческими работами здесь

Объяснить каждую строчку в функции main
Прошу пояснить каждую строчку после int main() #include <string> #include <iostream> #include...

Объяснить каждую процедуру и функцию. Для чего они все даны и что выполняют
Программа взята из папки PABWork.NET->CSamples->Graphic->GraphABC Да, там есть комментарии к...

Подробно прокомментировать и объяснить каждую строчку кода
Нужны подробные комментарии каждой строчки кода, начиная с вывода массива. Надеюсь на вашу помощь....

Объяснить и подробно прокомментировать каждую строчку кода
#include <iostream> #include <stdio.h> #include <conio.h> #include <dos.h> int main() {...

Подробно прокомментировать и объяснить каждую строчку кода
Помогите пожалуйста. Нужно прокомментировать каждую строчку кода, начиная с вывода. Сам с...

Наверх