|
|
| Другие темы раздела | ||||||||||||||||||
| Delphi Вставка символа в юникоде из дельфи в Word Здравствуйте. Пытаюсь выполнить следующий код (цель - вставить символ мю в текст документа ворд): procedure TForm1.Button1Click(Sender: TObject); var i:integer; vr1, vr2, vr3:Olevariant; begin // код для мю 03BC vr2:= 'Times New Roman'; vr1:='Unicode'; vr3:='wdFontBiasDontCare'; https://www.cyberforum.ru/ delphi-beginners/ thread74608.html |
Обработать ввод даты, отличной от текущей Delphi Ребята, помогите пожалуйста, никак не пойму свою ошибку, вроде и сравниваю все правильно, а сообщение об ошибке не появляется, точнее никакие действия вообще не выполняются при нажатии на кнопку вот код procedure TForm1.Button2Click(Sender: TObject); var s,p,q,r,d,m,y: string; //b: boolean; begin //if b = true then try s:= datetostr(date); | |||||||||||||||||
|
Delphi Наибольший элемент среди стоящих на главной и побочной диагоналях поменять местами с элементом
https://www.cyberforum.ru/ delphi-beginners/ thread74573.html У меня возникли затруднения с написанием следующих кодов в консоли: 1)В двумерном массиве из п строк и п столбцов, где п - нечетное число, все элементы различны. Наибольший элемент среди стоящих на главной и побочной диагоналях поменять местами с элементом, стоящим на пересечении этих диагоналей. 2)Дан двумерный массив из 20 столбцов. Переставить первые три и последние три столбца,... |
Delphi алгоритм Дейкстры Может не туда, но Как можно доработать алгоритм Дейкстры, для уменьшения его времени работы не O(n*n)?? как сделать O(n*lоg(n))?? https://www.cyberforum.ru/ delphi-beginners/ thread74570.html | |||||||||||||||||
|
Delphi Отладка программы Нужно отладить программу да так, чтоб при вводе в таблицу других элементов кроме чисел, выводилось сообщение типа showmessage - "Пожалуйста вводите только цифры. собственно вот программа: Дан квадратный массив целых чисел. Определить является ли он симметричным относительно своей побочной диагонали. rocedure TForm1.Button3Click(Sender: TObject); var Arr : array of array of... |
Delphi Работа с файлами Рассматривается текстовый файл INPUT.TXT, содержащий одно или несколько предложений на английском языке, разделенных символом "." (точка). В конце последнего предложения ставится "." (точка). Предложения начинаются с заглавной буквы. Слова разделяются одним или несколькими пробелами. Между словами допускаются символы пунктуации: "," (запятая), ";" (точка с запятой), ":" (двоеточие), "-"... https://www.cyberforum.ru/ delphi-beginners/ thread74548.html | |||||||||||||||||
| Delphi Типизированный файл Создать типизированный файл записей, содержащих сведения об учениках. Структура записи имеет следующий вид: type S = record { Ученик } N: String; { Фамилия ученика } C: 1..10; { Год обучения } L: Char { Буква (от А до К) } end Выяснить, имеются ли однофамильцы в... https://www.cyberforum.ru/ delphi-beginners/ thread74546.html |
Delphi Составьте программу, проверяющую, верно ли утверждение, что сумма цифр введенного вами целого числа делится на 5... Привет! Помогите, пожалуйста с тремя задачками. 1.Ветвления 2. Циклы 3.Массив 1.Составьте программу, проверяющую, верно ли утверждение, что сумма цифр введенного вами целого числа делится на 5. 2.С помощью оператора «while» напишите программу определения идеального веса для взрослых людей по формуле: идеальный вес = рост-100. Выход из цикла: значение роста =250. 3.Массивы линейные. Найти... | |||||||||||||||||
|
Delphi Файлы
https://www.cyberforum.ru/ delphi-beginners/ thread74483.html unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Menus, ExtCtrls, StdCtrls; type TForm1 = class(TForm) |
Delphi Псевдоперемножение матриц
https://www.cyberforum.ru/ delphi-beginners/ thread74363.html Ребят, такая проблемка, есть две матрицы ____A _B _C _D _E__F A || ∞ 30 ∞ 20 ∞ ∞ || B || ∞ ∞ 15 20 ∞ ∞ || C || ∞ 15 ∞ 20 25 ∞ || D || 20 20 20 ∞ ∞ 25 || E || ∞ ∞ 25 10 ∞ 40 || F || 15 ∞ ∞ 25 40 ∞|| | |||||||||||||||||
|
добавление не одного а всех Delphi вот смотрите компонент TICQ при первом сообщение идет: ini:=TIniFile.Create(ExtractFileDir(Application.ExeName)+ '\' + 'user.ini' ); ini.WriteInteger('New User', 'UIN', StrToInt(UIN)); //ini.WriteInteger('New User', + Msg); ini.Free; то есть запись в INI файл и получается вот так: UIN=488353316 вроде все нормально но я проверил написал с другого уина боту и он не добавил( |
Delphi Найти максимальное из чисел, встречающееся в данном массиве более 1 раза
Необходимо решить 2 задания:
1.Дан массив Х из М целых чисел( 0<M<97;1000<X<100). Найти максимальное из чисел, встречающееся в данном массиве более 1 раза.
2.Дан одномерный целочис
Наверх
| |||||||||||||||||
