|
|
| Другие темы раздела | |
| Delphi график в делфи для построение графика используется вся область формы. причем если изменить размер окна то график должен быть перерисован заново с учетом реальных размеров . вот функция: C= (ax^2+bxlna)/ x+e^-(a+b) +x^2( прибавляется к дроби) кто решит выложите саму прогу плзз да и код не усложняйте) https://www.cyberforum.ru/ delphi-beginners/ thread300104.html |
В TМемо записывать координаты всех объектов, которые помещаются на TImage Delphi Доброе время суток, подскажите пожалуйста как можно сделать так, чтоб в Мемо записывались координаты всех обектов которые я кидаю на Имидж??? procedure TForm1.FormClick(Sender: TObject); begin form1.Refresh; x1:= MyMouse.CursorPos.x - form1.Left-50; y1:= MyMouse.CursorPos.y - form1.Top-78; Canvas.Pen.Color := clBlack; Canvas.Ellipse(x+30+x1,y+30+y1,x+60+x1,Y+60+y1); ... |
| Delphi Напечатать все слова, отличные от последнего, предварительно удвоив в слове все вхождения последней буквы Напечатать все слова, отличные от последнего, предварительно удвоив в слове все вхождения последней буквы. procedure TForm1.SpeedButton1Click(Sender: TObject); var str,s,v:string; l,k,i:integer; begin str:=edit1.Text; for i:=1 to length(str) do if (str=' ') or (str='.') then k:=k+1; https://www.cyberforum.ru/ delphi-beginners/ thread299982.html | Delphi 2ю строку из текстового файла проект переводит текст в md5 сохраняет его в текстовом файле, нужно сделать так чтобы по нажатию на авторизацию он сравнил 2строку из файла с введеными данными в edit(они не переведены в md5) procedure TForm1.Button3Click(Sender: TObject); begin if МД5(edit2.text) = 2строка из 111.txt then label2.Text:='УСПЕХ!'; end; вот проект если так нельзя сделать то как можно? https://www.cyberforum.ru/ delphi-beginners/ thread299964.html |
|
Сортировка Delphi С клавиатуры вводятся данные (название пункта назначения, номер поезда, время отправления) в массив, состоящий из 8 элементов. отсортировать в алфавитном порядке по названиям пунктов. спасибо заранее. |
Delphi Сортировать очередь(срочно. экзамен) Дана очередь. Сортировать ее методом пузырька. Помогите пожалуйста скоро экзамен. https://www.cyberforum.ru/ delphi-beginners/ thread299920.html |
|
Delphi TreeView + навигация
https://www.cyberforum.ru/ delphi-beginners/ thread299911.html Прога в принципе готова и работает. Вопрос остался в дереве. Как сделать при переходе вперед и назад аналогичное действие отрабатывалось визуально в дереве. Смена иконки + подсветка нужного пункта. Индекс из дерева без проблем, а вот назад? Даже не знаю какой кусок проги тут привести. Вот что при активации TreeView1.Items.Add(nil, DataModule1.tbl1.Fields.AsString); for i:= 1 to... |
Как написать Autorun? Delphi Привет всем! У меня такой вопрос как написать чтобы программа запускалась при старте windows т.е. Autorun. Вы конечно подумаеете что я вирусописатель , но мне нужна эта фун-ция нужна для автоматического запуска моей новой панели (чтобы не забивать раб стол) |
|
Delphi Читаем из файла
https://www.cyberforum.ru/ delphi-beginners/ thread299901.html Не полчается прочитать секцию из файла ini надо прочитать и занести элементы в RadioGroup Вот мой вариант Radiogroup1.Buttons.Checked := ini.ReadString('ypoBeHb1 '+IntToStr(k), radiogroup1.Buttons.Caption, false); но ругается на Buttons.Checked При таком варианте Radiogroup1.Items := ini.ReadString('ypoBeHb1 '+IntToStr(k), radiogroup1.Buttons.Caption, false); ругается на тип Incompatible... |
Delphi отрезок программы
https://www.cyberforum.ru/ delphi-beginners/ thread299897.html можете помоч, не могу сделать для одной программы небольшой отрезок. нужно ввести очень много значении в один едит. например ввел 10 нажал интер ввел 20 нажал интер и т.д. до н-го раза. |
|
Delphi Множественный тип данных Помогите пожалуйста!!! Дана строка состоящая из латинских букв и цифр используя множественный тип данных получить две новые строки которые состоят:1 только из букв, а 2 из цифр. Заранее большое СПАСИБО!!! |
Delphi Немного подправить программу.
https://www.cyberforum.ru/ delphi-beginners/ thread299791.html Есть вроде бы не сложное задание: Написать программу для вычисления площади треугольного участка по известному значению основания C в метрах и углов при основании α, β в градусах, минутах и секундах. Площадь определить в гектарах с точностью до 0,01 га. В программе предусмотреть проверку соотношение α+β<180° (для этого α и β необходимо предварительно перевести в градусы с... |
|
0 / 0 / 0
Регистрация: 13.03.2011
Сообщений: 12
|
|
| 0 | |
Дублирующие запиcи в ComboBox - Delphi - Ответ 166973419.05.2011, 23:03. Показов 980. Ответов 4
Метки (Все метки)
Код
var i:integer;
label m;
begin
Table1.Open;
Table1.First;
Table1.Edit;
while not Table1.Eof do begin
i:=0;
CBox_stena.Items.Add(Table1.fieldbyname('Stena').AsString);
Table1.Next;
m:
repeat
CBox_stena.ItemIndex:=i;
Table1.Next;
if CBox_stena.Text=Table1.fieldbyname('Stena').AsString then begin
goto m;
end;
inc(i);
until i=CBox_stena.Items.Count;
end;
код слегка изощренный.. Вернуться к обсуждению: Дублирующие запиcи в ComboBox Delphi
0
|
|
| 19.05.2011, 23:03 | |
|
Готовые ответы и решения:
4
Удалить дублирующие записи! проверка на дублирующие email-ы Убрать дублирующие строчки
|
| 19.05.2011, 23:03 | |
| 19.05.2011, 23:03 | |
|
Помогаю со студенческими работами здесь
0
Яндекс.Маркет - дублирующие витрины Ошибка программы, дублирующие файлы Как проверить на дублирующие строки С помощью запроса удалить дублирующие записи Удалить дублирующие гет-параметры из url При связывании DataGridView и List образуются дублирующие колонки |