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

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

Войти

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

Другие темы раздела
Delphi Скачать Delphi https://www.cyberforum.ru/ delphi-beginners/ thread522887.html Помогите пожалуйста... мне нужна Delphi... может у кого завалялся установщик... а то уже 4 раза устанавливал и все были глючиные... если есть залейте на для закачки...	Найти количество точек пересечения окружностей Delphi На плоскости даны две окружности. Найти количество точек их пересечения! Помогите решить задачку...)
Delphi AdvAlert - настройка https://www.cyberforum.ru/ delphi-beginners/ thread522735.html Подскажите, как сделать, чтобы всплывающие окошка накладывались друг на друга? Сейчас, если отображается первое сообщение, затем есть кнопка дальше для просмотра следующего сообщения, а надо сделать так, что бы окошко следующего сообщения перекрывало окошко предыдущего, если оно не успело скрыться. Добавлено через 37 минут Разобрался. :-AdvAlertWindow1.AlertMessages.Add.Text.Text := nad;...	Delphi Изменение контрастности изображения https://www.cyberforum.ru/ delphi-beginners/ thread522731.html procedure Contrast(Bitmap: TBitmap; Value: Integer; Local: Boolean); function BLimit(B: Integer): Byte; begin if B < 0 then Result := 0 else if B > 255 then Result := 255 else Result := B;
Delphi Работа с использование объектов и класов. Нарисовать воздушний шарик, который может лопнуть. Родительский класс – перемещающийся эллипс.(Составить родительский класс, который позволяет с помощью методов Show и Hide показывать и стирать объекты на экране.) Пример лабораторной.	Delphi Копировать "exe" файл из ресурсов https://www.cyberforum.ru/ delphi-beginners/ thread522715.html Ребята, кто поможет? Какой код нужен, чтобы скопировать "exe" файл из ресурсов в другое место на компьютере. файл.res я уже создал (скомплимировал), как дальше действовать? Зарание спосибо!
Delphi Элементы стека по условию записать в очередь Ребята помогите со стеками и очередями, подскажите как можно элементы со стека по условие записать в очередь!!! Очень буду признателен!!! https://www.cyberforum.ru/ delphi-beginners/ thread522672.html	Delphi Калькулятор Помогите пожалуйста найти ошибку в калькуляторе.Компилировать не хочет Заранее спасибо. var fmCalc: TfmCalc; implementation var a,b,c:real;
Delphi Delphi send byte https://www.cyberforum.ru/ delphi-beginners/ thread522657.html procedure TForm1.Button1Click(Sender: TObject); var x: array of byte; begin x:= $FF; end; ... Tcomponent.Send(ip, port, x); //Ошибка ошибка типа Incompatible types: 'String' and 'Array'	Delphi Дан квадратный массив https://www.cyberforum.ru/ delphi-beginners/ thread522649.html Дан квадратный массив, заполненный случайными числами из промежутка . Посчитать количество нечетных чисел под главной диагональю и произведение элементов на побочной диагонали. var Form1: TForm1; a:array of array of integer; n,i,j,k,p,m:integer; implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject);
Delphi Компонент TMemo. Составление условия Всем привет. Программа, запрашивающая строки, слова которых разделены пробелами и знаками препинания и выводящую в столбик, в алфавитном порядке слова этой строки, обладающие указанными свойствами, или сообщение «таких слов нет». Для ввода и вывода использовать компоненты TMemo. Задача: Слова заданной длины, в которые входит данная буква. Решаю по частям, чтобы понять все и не...	Delphi Разбить исходную строку на две подстроки https://www.cyberforum.ru/ delphi-beginners/ thread522627.html Дана строка символов, состоящая из произвольного текста на английском языке, слова разделены пробелами. Разбить исходную строку на две подстроки, причем первая длинной К - символов (если на К-тую позиции попадает слово, то его следует отнести ко второй строке, дополнив первую пробелами до К-позиций)

SlashX6

16 / 16 / 9

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

Сообщений: 437

Код нажатой клавиши. - Delphi - Ответ 2815315

20.03.2012, 11:26. Показов 3944. Ответов 2

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

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

Добрый день!

Не как не могу сделать чтобы из ShowMessage была считана информация о символах(код символов первого и последнего) которые в программе совпадают.

Пытаюсь добиться того чтобы все эти символы выводились в Label 1 and Label2. Delphi 7 ругаеться если я пытаюсь присвоить переменную как ShowMessage, ну или выдаёт, что не те типы (String and Integer, Integer and String)

Помогите пожалуйста как можно добиться считывания символов и вывод их кода в Label'ы

Собственно сам код. Если можно, то пожалуйста поправте код чтобы он делал выше указанное, а именнр выводил дополнительно код к тем действиям которые в программу заложены.
П.С. если выбирать событие на форме OnKeyDown то в данном случае я не думаю, что пройдёт.

Delphi

var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
//Кнопка сброса(очистки поля)
procedure TForm1.Button1Click(Sender: TObject);
begin
Edit1.Text:= '';
end;
 
//Button2 - для получения результатов
procedure TForm1.Button2Click(Sender: TObject);
var
  s: string;  
  i: integer; 
 
begin
s:=Edit1.Text; 
ShowMessage('Длина текста = '+ IntToStr(Length(s)));      //Находим сколько символов
for i:=2 to length(s) do
if s[i]=s[1] then ShowMessage('номер элемента (номер элемента) =  ' + inttostr(i));  
for i:=length(s)-1 downto 1 do
if s[i]=s[1] then ShowMessage(' номер элемента (номер элемента) = ' + inttostr(i)); 
end;
 
//Покажем сколько символов уже введино
procedure TForm1.Edit1Change(Sender: TObject);
begin
   Label1.Caption:=IntToStr(Length(Edit1.text));
end;
 
end.

Вернуться к обсуждению:
Код нажатой клавиши. Delphi

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

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

Programming

Эксперт

94731 / 64177 / 26122

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

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

20.03.2012, 11:26

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

Виртуальный код нажатой клавиши
Подскажите пожалуйста как это можно сделать? Задание: Напишите приложение, выводящее в строке...

Сравнение нажатой клавиши с эл-ом массива
Ребят, помогите написать процедуру для сравнения нажатой клавиши клавиатуры с элементом массива....

Отправка нажатой клавиши в чужое окно
Вот листинг программы, которая 1) получает открытые окна 2) получает их HWnd 3) ПЫТАЕТСЯ отправить...

Отображение названия и кода нажатой функциональной клавиши
Создать на форме Form3 поля Label1 i Label2 для отображения названия и кода нажатой функциональной...

	20.03.2012, 11:26

IT_Exp

Эксперт

87844 / 49110 / 22898

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

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

20.03.2012, 11:26

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

Вывести подсчеты времени удержания нажатой любой клавиши управления курсором
Создать на форме Form3 поле Label4, в котором вывести подсчеты времени удержания нажатой любой...

Задаем действие для нажатой клавиши
Здравствуйте дорогие форумчане ... как мне сделать что бы при нажатии стрелки вверх мой рисунок в...

Определение нажатой клавиши в свернутом виде
Люди, help! Помогите начинающему, plz! Как определить в приложении, какая нажата клавиша, если...

Код клавиши '.'
Нужна проверка на введенное значение в DBEdit - должно быть десятичное число с точкой. if not...

Наверх