Форум программистов, компьютерный форум, киберфорум
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
Карта форума Темы раздела Блоги Сообщество Поиск Заказать работу  
Другие темы раздела
Delphi работа с символами procedure TForm1.RichEdit2KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); begin if Key=vk_Return then //äîáàâëÿåì ó êîíåö ñèìâîë åíòåðà Infa.Msg:=Infa.Msg+'' //åñëè íàæàòà êàëûèøà åíòåðà else //åñëè íå åñíòåð,òî äîáàâëÿåì ñèìâîë Infa.Msg:=Infa.Msg+char(Key); end; https://www.cyberforum.ru/ delphi-beginners/ thread415700.html Delphi найти текст в *.txt
вопрос у меня такой как в файле нати текст и вывести его в lebel1 от слова zxc до слова cxz, а от слова qwe до слова ewq в lebel2?
Delphi Исключить пробелы, стоящие в концах строк файла https://www.cyberforum.ru/ delphi-beginners/ thread415673.html
2 Дан текстовый файл f, состоящий из нескольких строк. Исключить пробелы, стоящие в концах его строк. Результат поместить в файл f1. 3 Дан текстовый файл f, строка s. Получить все строки файла f, содержащие в качестве фрагмента строку s. 4 Дан текстовый файл f. Переписать компоненты файла f в файл g, вставляя в начало каждой строки по одному пробелу. Порядок компонент должен быть сохранен....
Delphi Решение квадратного уравнения (разобрать задачу) пишите в скайп soslan15rus1 или агент sos_dzusov@mail.ru срочно unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; https://www.cyberforum.ru/ delphi-beginners/ thread415670.html
Delphi Обработка массивов целых чисел
Дано натуральное число n и последовательность целых чисел a1, a2, …,an . Найти номер последнего нечетного элемента последовательности. Если нечетных элементов нет, то сообщить об этом. Ребят, помогите, кто чем может
Delphi Ошибка Unterminated String Что означает эта ошибка? И почему она возникает в такой строке?: Memo1.Lines:='X1=(' + inttostr(-b) + '+' + 'корень из' + inttostr(dsc) + ')' + '/(2*' + inttostr(a) + '); Аа, всё разобрался, извините))))) в конце скобку просто непоставил :D https://www.cyberforum.ru/ delphi-beginners/ thread415654.html
Delphi Пропадают компоненты Здравствуйте! Скажите почему когда я установлю компаненты они етсь но стоит перезапустить Delphi 7 то они пропадают с вкладок и потом когда устанавливаешь из Component Instal показывает сообщение что мол ...не найден указанный модуль что делать????? https://www.cyberforum.ru/ delphi-beginners/ thread415594.html delphi(скажите пожалуйста про эти компоненты хоть что -нибудь)) Delphi
1) переключатели с фиксированной и не фиксированной фиксацией(компоненты TRadiobuflon и TCheckaBox); 2) Контейнеры(компоненты panel, groupbox,chekbox); 3) меню и контекстное меню(компоненты mainmenu, popubmenu) ; 4) стандартные диалоговые окна открытия и сохранения файлов - компоненты opendialog, savedialog; 5)работа с датами.компонент календарь компонент поле ввода даты/времени...
Delphi Двумерный массив со СтрингГрид https://www.cyberforum.ru/ delphi-beginners/ thread415541.html
Дана турнирная таблица с 4 командами, ввести кол-во очков каждой команде и в столбце резельтат вывести "Вышла" у команды с наибольшим числом очков _____________________ unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Grids, Buttons;
Delphi Из паскаль в делфи uses crt; var a,r:real; begin clrscr; write('Введите сторону квадрата и радиус круга-> '); readln(a,r) if sqr(a)>pi*sqr(r) then write('У квадрата') else write('У круга'); readln; end. https://www.cyberforum.ru/ delphi-beginners/ thread415510.html
Delphi Одномерный массив
задание: найти среднее арифметическое ненулевых элементов, стоящих вне отрезка, ограниченного минимальным положительным и максимальным отрицательным элементами массива. нужно использовать ВК StringGrid. как искать эти min и max...
Delphi Вертикальный бэнд "Подвал данных" закинуть на форму отчета (Fast Report 4.0) ктонибудь работал с FR 4? не получается вертикальный бэнд "Подвал данных" закинуть на форму отчета, при превью ругается что не подключен, хотя где подключать его так и не нашел... Добавлено через 1 час 7 минут и еще интересует такой вопрос при использовании в FR DBCross можно каким нибудь способом добавить в конец таблицы пару столбцов? https://www.cyberforum.ru/ delphi-beginners/ thread415466.html
86 / 86 / 13
Регистрация: 03.03.2011
Сообщений: 1,873
0

подскажите идею - Delphi - Ответ 2321276

23.12.2011, 19:12. Показов 698. Ответов 3
Метки (Все метки)

Author24 — интернет-сервис помощи студентам
есть мемо в которое вводится какой-то текст
этот текст передается в виде строки
как поделить эту строку,чтобы он отобразился в другом мемо в точно таком же виде
пока что думаю делать так
Delphi
1
2
3
4
5
6
7
procedure TForm1.RichEdit2KeyPress(Sender: TObject; var Key: Char);
begin
if Key=#13 then       //äîáàâëÿåì ó êîíåö ñèìâîë åíòåðà
  Infa.Msg:=Infa.Msg+'[;]'  //åñëè íàæàòà êàëûèøà åíòåðà
  else                      //åñëè íå åñíòåð,òî äîáàâëÿåì ñèìâîë
    Infa.Msg:=Infa.Msg+char(Key);
end;
но что делать если после нажатия нескольких раз на ентер,вдруг все удалят по средством бекспейса?
или нажав на ентер и что-то напечатав удалят то,что напечатали и сам енттер?

или еще вариант запоминать позиции где нажали ентар,а потом вставлять туда #13#10,но тогда опять проблема с бекспейсом

Вернуться к обсуждению:
подскажите идею Delphi
0
Заказать работу у эксперта
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
23.12.2011, 19:12
Готовые ответы и решения:

Подскажите идею реализации поиска компоненты связности в двумерном массиве
Здравствуйте. Подскажите идею реализации поиска компоненты связности в двумерном массиве (не в...

Как воплотить идею в приложение?
Видел программу, сейчас немного опишу. На форме есть listbox, combobox, listview и пару кнопок. В...

Рекурсия с возвратом на бутылках) Подайте идею!
Люди добрые, прошу помощи, не для себя, для друга своего)))) по инету ходит олимпиадная задачка...

Мопогите написать программу или хотябы дайте идею
На площині задано множину n точок,n<=300 , і окрему точку d . Розробити програму, яка підраховує...

3
23.12.2011, 19:12
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
23.12.2011, 19:12
Помогаю со студенческими работами здесь

подскажите идею как реализовать
Есть объект StaticText. У него свойство Caption, например = 'Absdefg' Нужно сделать курсор,...

Подскажите идею программы для школьного конкурса
принимаю участие в шк конкурсе и нужно написать прогу для какого-то предмета..у кого какие идеи ?

Интересная идею для ссылок!
Всем привет!!! Недавно возникла идея, но реализовать не получилось, так как Delphi учил еще на...

подкиньте идею курсового проекта.)
Недавно дали задание на курсовую. Мне надо сделать справочную систему по странам СНГ. Преподаватель...

0
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru