|
|
| Другие темы раздела | ||||||||||||||||||
|
Delphi ЗАПИСИ!!!
https://www.cyberforum.ru/ delphi-beginners/ thread227601.html type Tholod=Record firstpolka: string; lastpolka: string; end; var pizza,grusha:Tholod; begin помогите составить обращение к записи!!! |
Delphi Поиск в тексте числа и преобразование его В заданом тексте встречаются цены товаров в гривнах. Например, встречается: 1253749; нужно представить, эту цену в виде: 1млн 253 тыс. 749 грн. непойму как в тексте определить сколько порядков имеет число и в какую часть числа вставлять слова млн. и тыс. | |||||||||||||||||
|
Delphi В заданном одномерном массиве найти последний элемент, значение которого не меньше а
https://www.cyberforum.ru/ delphi-beginners/ thread227579.html Здравствуйте друзья помогите пожалуйста с одной программой очень надо. Заранее всем спасибо. И если не затруднит напишите пожалуйста полный код программы и комментарии. В заданном одномерном массиве найти последний элемент, значение которого не меньше а. |
Delphi Функция MeanAndStdDev модуля Math
https://www.cyberforum.ru/ delphi-beginners/ thread227445.html Не могу понять как работать с функцией MeanAndStdDev и как из неё получить StdDev и Mean. procedure MeanAndStdDev(const Data:array of Double; var Mean,StdDev:Extended); Вычисляет арифметическое среднее и стандартное отклонение для набора вещественных чисел. Вот пример кода, который я нашла в инете: var Data: array of Double; Mean,Dev: Extended; i: byte; begin | |||||||||||||||||
|
Переменная в адресе файла Delphi каким образом можно задать в адрес файла переменную? т.е. s:='Информация/"переменная s"/Количество звёзд.txt'; Memo2.Lines.SaveToFile(s); в переменой s будет записана информация из memo1. так же вопрс как можно выцепить эту же переменную s из такого алгоритма begin |
Delphi Составить регулярку из веб-дока вытащить время и название тв-передачи вот отсюда:<table cellspacing="0" cellpadding="0" width="100%"> <tr> <td width='50%' valign='top' style='padding: 0 0 10 0;'><table cellspacing='0' cellpadding='0' border='0' width='100%' bgcolor='#F0F7FD'><tr><td><img src='/i/lt-crn.jpg' width='10' height='10'></td><td width='100%'><img src='/i/tp.gif' width='100%' height='1'></td><td><img... https://www.cyberforum.ru/ delphi-beginners/ thread227338.html | |||||||||||||||||
| Delphi Изменение размеров Image из самой программы. Делаю для себя небольшую программу-рисовалку. Рисую на канве Image. Изначально разрешение (размер) Image 640х480. В чекбоксе перечислены возможные разрешения (от 640х480 до 1280х720). Размер самого Image менятся при выборе нужного разрешения, но канва нормально не прорисовывается. Вот текст события ComboBox3Select(там хранятся разрешения в виде "640 х 480"): procedure... https://www.cyberforum.ru/ delphi-beginners/ thread227306.html |
Не работает case Delphi При выборе элемента из Combobox едит должен заполниться соответствующим текстом, однако этого не происходит. Что сделать? Case fmchild.cbMS.ItemIndex of 0 : fmChild.edCena.Text := '850'; 1 : fmChild.edCena.Text := '1000'; 2 : fmChild.edCena.Text := '2200'; 3 : fmChild.edCena.Text := '3300'; 4 : fmChild.edCena.Text := '4100'; end; --- | |||||||||||||||||
|
Delphi Работа с компонентами как массивами
https://www.cyberforum.ru/ delphi-beginners/ thread227229.html У меня есть 10 компонентов LabeledEdit и 1 Edit. В поле Edit пользователь вводит число от 1 до 10 и в зависимости от этого столько же первых компонентов LabeledEdit должно остаться видимыми, а остальные - невидимыми. Например, пользователь ввёл "3". Тогда procedure TForm1.Button18Click(Sender: TObject); LabeledEdit1.Visible:=true; LabeledEdit2.Visible:=true; LabeledEdit3.Visible:=true;... |
Delphi Ведение логов дня Всем хай В общем, идея крайне проста. Я пишу чем я сейчас занимаюсь в поле ввода, программа добавляет к этому текущее время и дату и пишет в файл. Но в коде где-то ошибка. Не поможете? begin today:=Time; AssignFile (log, 'C:\Users\Fedor\Desktop\log.txt'); Reset(log); Writeln(log, +datetostr(today), ' ', +timetostr(today), ' || ', edt1.text); end; https://www.cyberforum.ru/ delphi-beginners/ thread227206.html | |||||||||||||||||
|
Delphi Delphi and MatLab вот эту программу помогите сделать в MatLab пожалуйста: if ComboBox1.ItemIndex = 2 then begin for i:=1 to (N div 2) do begin if A > A then begin min:=i+1; max:=i; end else begin min:=i; |
Delphi программа
Необходимо ввести данные в поле Edit, в «events' находим ON Key Press жмем, и у нас открывается форма где нужно ввести вот этот код
case Key of
'0'..'9',#8:;
',':
if Pos(',',Edit1.Text)<>0
Then Key:=#0;
else Key:=#0; и вот постоянно вылетает ошибка где то ниже END и убирает одну точку в ';' получается точка одна,ниже в файлах три скриншота будут, посмотрите пожалуйста в чем дело. спаибо...
https://www.cyberforum.ru/ delphi-beginners/ thread227
Наверх
| |||||||||||||||||
