Перейти из форума на сайт.

НовостиФайловые архивы
ПоискАктивные темыТоп лист
ПравилаКто в on-line?
Вход Забыли пароль? Первый раз на этом сайте? Регистрация
Компьютерный форум Ru.Board » Компьютеры » Прикладное программирование » Вопросы по Delphi 2

Модерирует : ShIvADeSt

ShIvADeSt (22-03-2007 02:18): http://forum.ru-board.com/topic.cgi?forum=33&topic=8142  Версия для печати • ПодписатьсяДобавить в закладки
Страницы: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100

   

ShIvADeSt



Moderator
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Продолжение темы http://forum.ru-board.com/topic.cgi?forum=33&topic=3647&start=2020#lt
Внимание, все большие куски кода (более 5 строк) оформляем в тег [more] дабы уменьшить размер поста.

Всего записей: 3956 | Зарегистр. 29-07-2003 | Отправлено: 01:52 20-04-2006 | Исправлено: ShIvADeSt, 02:02 30-06-2006
vserd

Silver Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
ChSerg

Цитата:
Повторяю, файл один на весь комп и DCU одна на весь комп. Лежит в папке, путь к которой задан в настройках среды Delphi как к библиотеке. Другого нету. Копий тоже!!!  

Если я правильно путаю,  а путаю я правильно :). То в Королевстве Delphi была статья, в которой было показано, что в если в файле записано вместо CRLF в конце строки просто CR, то возникает такой глюк. http://www.delphikingdom.com/asp/viewitem.asp?catalogid=1025
 
OOD

Цитата:
Не у всех делфи нормальный с полным хелом есть  

Это твои внутренние проблемы. Если не удается найти нормальный дистрибутив со справкой, тогда нужно искать ответы в учебниках по языку. Или другой дистрибутив.

Всего записей: 2065 | Зарегистр. 08-05-2002 | Отправлено: 12:39 12-07-2006
OOD

Silver Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
vserd
 

Цитата:
 Это твои внутренние проблемы. Если не удается найти нормальный дистрибутив со справкой, тогда нужно искать ответы в учебниках по языку. Или другой дистрибутив.  

Сори за офф.топ, но всё же зачем тогда нужны форумы? Проще всего сказать в гугл, или поиск!

Всего записей: 3378 | Зарегистр. 20-05-2006 | Отправлено: 12:44 12-07-2006
RomanTim

Member
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
vserd
Так и оказалось - только было не просто CR, а CRCRLF
 
OOD
Вообще-то форум не по языку паскаль, а по делфи, да и вопросы здесь обычно задают по поводу проблем, решение котрых не самое очевидное. Если ты хочешь начать что-то писать, то найди книжку (бумажную, электронную - не важно) и почитай, посмотри примеры, попробуй сам язык... Учить язык с помощью вопросов на форуме - это все-таки изврат

Всего записей: 375 | Зарегистр. 11-09-2003 | Отправлено: 13:05 12-07-2006
OOD

Silver Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору

Цитата:
Учить язык с помощью вопросов на форуме - это все-таки изврат

За то очень эффективно!

Всего записей: 3378 | Зарегистр. 20-05-2006 | Отправлено: 14:11 12-07-2006
vserd

Silver Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
offtop on
OOD

Цитата:
За то очень эффективно!  

Угу, только нужно через каждые три-пять вопросов новый форум искать, так как либо ответы становятся "почитай книжку", "смотри справку", RTFM, и предупреждения за нарушения правил, либо банальный игнор. Если ты думаешь что людям приятно отвечать на банальные вопросы, ответы на которые есть в любой книге по основам программирования на этом языке программирования, то ты глубоко ошибаешся.
 
Так как у тебя явно видно максимализм "окружающие мне должны" который не рабоатет, с сожалением могу сказать что практика жизни показывает что работает другой максимализм "Окружающим пофигу ваши проблемы, у них своих хватает". А если кто помог тому спасибо/или другая благодарность, даже через много времени.
 

Цитата:
Проще всего сказать в гугл, или поиск!

Если бы мне в ответ на мои вопросы всегда давали правильный запрос для поисковой системы я был бы счастлив без меры. :) Там столько нового можно узнать...
offop off
 
RomanTim

Цитата:
Так и оказалось - только было не просто CR, а CRCRLF  

а это крайний случай :)) должно быть CRLFCRLF. Просто две пустых строки подряд.

Всего записей: 2065 | Зарегистр. 08-05-2002 | Отправлено: 16:14 12-07-2006
RomanTim

Member
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
OOD

Цитата:
За то очень эффективно!

Очень сомнительно... за день ты получишь от силы 4-5 ответов, да и то - если на вопросы о таких элементарных вещах кто-то отвечать будет, а с книжкой за пару часов можно разобраться в синтаксисе практически любого языка (операторы, циклы, условия и т.п.), а вот когда появятся вопросы - какой из частей вцл лучше сделать то или иное - тогда уже можно и поспрашивать.
Ладно, заканчиваем оффтопить, хочется - пиши в ПМ

Всего записей: 375 | Зарегистр. 11-09-2003 | Отправлено: 16:18 12-07-2006
Iamer



Newbie
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Блин, народ, посоветуйте с чего начать изучение Delphi? Точнее с какой литературы?
То что прочитал несколько книг... они меня просто ЗАДОЛБАЛИ!!! Ощущение что не программинг изучаю а курс математики/в разных ее проявлениях! Что за ботва, сложение блин, умножение, конусы, долбаные "липипиды", уравнения и подобная хрень!!! Терпение переполнилось после поседней прочтенной буки - Пестрикова/Маслобоева - Delphi на примерах! До этого было вроде - Самоучитель Delphi 8 for .NET...
И еще что то - не помню уже что...
И везде блин пытаются впарить only работу с числами - задолбало уже!
Или это так и должно быть? ...НЕВЕРЮ!!!
Ух, злости просто нету придела!
Собственно, кто как начинал, чего посоветуете почитать реально стоящего?

Всего записей: 4 | Зарегистр. 15-07-2006 | Отправлено: 05:43 15-07-2006
OOD

Silver Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Не получается вырезать в memo с нужных символов и по....нужные
 
В мемо1 есть строка:
session=d6f5255ae5f6&
из неё нужно вырезать d6f5255ae5f6
т.е. спозиционировать курсор от session= и по & и вырезаь,всё, что между.
пробую вот так:
 
a,c : integer;
 
begin
a := Pos('?session=',memo1.Text);
c := Pos('&',memo1.Text);
form1.Caption:= inttostr(a)+' '+ inttostr(c);
label1.Caption:=Copy(Memo1.text, a , c-a);
 
вырезает ?session=d6f5255ae5f6
подскажите как нужно сделать так чтобы отрезать ?session=.
 
Сейчас сделал 2-й мемо, в который вставляю , после вырезания ?session=d6f5255ae5f6 и там уже отрезаю, всё, что после =, но это не удобно, наверняка можно вырезать сразу всё, что после ?session= , но как?!
 
Всё бы хорошо,но Если в Мемо находиться большое колличество значений и строк, тогда данный код вообще не работает :\ Подскажите как можно вырезать значения Между определенными символами т.е. вырезать значения по маске?

Всего записей: 3378 | Зарегистр. 20-05-2006 | Отправлено: 10:47 15-07-2006
vserd

Silver Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Iamer
Цитата:
Блин, народ, посоветуйте с чего начать изучение Delphi? Точнее с какой литературы?  

Тут две составляющие.
1. Язык програмирования
2. Среда.
 
Если тебе нужно знать на какие кнопки нажимать, как помещать компоненты, как связывать код и кнопки на форме (обработчики событий) то это одна часть книги.
Если нужно будет изучать язык как таковой, тогда нужна книга по языку.
В большинстве учебных книг которые я видел, используются оба подхода, идет обучение как языку так и среде.
 
Я начинал с книжки Датемана и Тейлора Delphi, но ее щас денм с огнем не найдешь, так как она по делфи 1.  
Народ рекомендует Архангельского, я на развале смотрел на нее, написана достаточно понятно.  
Для продолжения образорвания могу порекомендовать Ксавье и Пачеко (двухтомник) любое издание, также посмотришь на Марко Канту, он переиздается регулятрно, только меняется версия Делфи.
OOD
Вот видишь что значит иметь среду со Справочной системой
Подробнее...
label1.Caption:=Copy(Memo1.text, a+length('?session='), c-a-length('?session='));
оптимизацию сделаешь сам
 

Всего записей: 2065 | Зарегистр. 08-05-2002 | Отправлено: 11:55 15-07-2006
subway1985

Newbie
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
У меня тут небольшой вопрос ситуация такая:
на форме есть два Edit'а и один ListBox и кнопка, как  
сделать чтобы к примеру в 1ом Edit'е было число 1, а  
во втором к примеру 8, то нажав на кнопку в Listbox'е
были числа 1,2,3,4,5,6,7,8?

Всего записей: 6 | Зарегистр. 14-07-2006 | Отправлено: 13:51 15-07-2006
SERGE_BLIZNUK

Silver Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
subway1985
 
ребята... но читайте доки, они же РУЛЕЗ....
 

Цитата:
на форме есть два Edit'а и один ListBox и кнопка, как  
сделать чтобы к примеру в 1ом Edit'е было число 1, а  
во втором к примеру 8, то нажав на кнопку в Listbox'е  


Код:
 
procedure TForm1.Button1Click(Sender: TObject);
var i : integer;
begin
  // нужно добавить проверки, что в Edit1, 2 именно цифры
  for I:=StrToInt(Edit1.Text)
      to StrToInt(Edit2.Text) do
    ListBox1.Items.Add(IntToStr(i))
end;
 

Всего записей: 2014 | Зарегистр. 12-09-2002 | Отправлено: 14:33 15-07-2006
Ramazan



Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
OOD
Pos возвращает позицию первого вхождения искомой строки в строке, поэтому вместо

Цитата:
a := Pos('?session=',memo1.Text);

нужно  a := Pos('?session=',memo1.Text) + Length('?session=');
Если много строк, тогда  
a := Pos('?session=',memo1.Lines[i]) + Length('?session=');
где i - номер строки. А если хочешь сделать поиск по маске, тогда читать про регулярные выражения
 
Добавлено:
vserd
Сорри, не заметил твой ответ

Всего записей: 359 | Зарегистр. 13-04-2002 | Отправлено: 10:29 16-07-2006
OOD

Silver Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Ramazan
Да спасибо , попробовал я POS,PosEx всё очень по корявому
 
Основная проблема в том, что у меня есть определенный текст Html страничька, мне нужно с неё повыкидывать всё не нужнно например кучу тегов, ненужного языка разметки страницы и.т.д. и оставить только то, что нужно, вначале просматриваю страницу через webbrowser потом помещаю код страницы в memo .
теперь нужно удалить всё не нужное, пытался всё засунуть в одну переменную и оттуда циклом удалять уж очень каряво, пытался приведенным Вами кодом удалять и заменять слова на пустые значение , тоже как-то не так
 
Сейчас пробую компоненть RichEdit , в нем есть замечательная функция по смене слов , а именно:
Search_And_Replace(Richedit1, 'старый текст', 'Новый текст');
 
Всё вроде работает, но сталкнулся с такой проблем, что , когда вставляю даные в мемо руками, т.е. Пишу допустим "Старый текст" , то вё работает, он моментально меняется на нужное мне слово....
 
Но когда данные выдергиваются в мемо динамически , а из мемо в RichEdit, тогда не происходит замены слов, или же она происходит, но ,если слова на латыни  
 
Как можно заменять русские слова в данной ситуации, и как можно упростить замену слов?!не писать же кучу заменялок типо:
Search_And_Replace(Richedit1, 'старый текст', 'Новый текст');
Search_And_Replace(Richedit1, 'старый текст1', 'Новый текст2');
.......
 
Может быть это можно как-то проще организовать!
 
 
 

Всего записей: 3378 | Зарегистр. 20-05-2006 | Отправлено: 20:12 16-07-2006
Jokerjar



BANNED
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
OOD, можешь попробовать с массивами. Создай 2 массива - в одном старые значения, во втором новые. Ну и цикл

Код:
for i := 1 to {Размер массивов}
Search_And_Replace(Richedit1, старый текст[i], Новый текст[i]);
 

Можно конечно и развить идею, к примеру создать запись с двумя открытыми массивами

Код:
type
  Tzamena = record
  oldS, newS: array of string;
  end;
 

и написать процедуры загрузки/сохранения в файл пар строк... Если будут проблемы обращайся.

Всего записей: 591 | Зарегистр. 22-03-2006 | Отправлено: 20:50 16-07-2006
ilyt



Junior Member
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
Проблема с xp manifest.
------------------------------------------
1. Кинул на форму ради пробы xp manifest.
2. Вид компонентов изменился соответственно.
3. Не понравилось.
4. Удалил Xp Manifest.
5. Вид компонентов не изменился.
------------------------------------------
И как теперь вернуться к старому виду?
Поможет кто подскажет...

Всего записей: 92 | Зарегистр. 24-11-2005 | Отправлено: 04:40 17-07-2006
Jokerjar



BANNED
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
ilyt, удали в uses XPMan

Всего записей: 591 | Зарегистр. 22-03-2006 | Отправлено: 07:04 17-07-2006
ilyt



Junior Member
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
Jokerjar
Удалил спасибо

Всего записей: 92 | Зарегистр. 24-11-2005 | Отправлено: 07:31 17-07-2006
Ramazan



Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
OOD
В стандартном модуле StrUtils есть функция замены строк:

Цитата:
 
{ AnsiReplaceText will replace all occurrences of a substring, without
  case-sensitivity, with another substring (recursion substring replacement
  is not supported) }
 
function AnsiReplaceText(const AText, AFromText, AToText: string): string;
 

т.е. для замены нет необъодимости использовать RichEdit.
Если развить идею Jokerjar, то можно использовать для этого TStringList, заполняемый из ini-файла вида

Цитата:
 
[Параметры замены]
Старое значение1=Новое значение1
Старое значение2=Новое значение2
...
 

примерно таким способом
А если смотреть шире, то существует множество парсеров html-кода, можно выбрать и адаптировать для твоих нужд. Сам подсказать не могу, т.к. не работаю с html, но может Google

Всего записей: 359 | Зарегистр. 13-04-2002 | Отправлено: 07:40 17-07-2006
Kr_Alex



Junior Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Iamer
Советую почитать М.Кенту (М.Кэнту)

Всего записей: 120 | Зарегистр. 16-07-2004 | Отправлено: 15:02 17-07-2006
Iamer



Newbie
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
vserd

Цитата:
Народ рекомендует Архангельского

Да, уже чтю! Вроде ничего....
Kr_Alex

Цитата:
Советую почитать М.Кенту (М.Кэнту)

Спасибо посмотрим.
 
 
 

Всего записей: 4 | Зарегистр. 15-07-2006 | Отправлено: 16:02 17-07-2006
   

Страницы: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100

Компьютерный форум Ru.Board » Компьютеры » Прикладное программирование » Вопросы по Delphi 2
ShIvADeSt (22-03-2007 02:18): http://forum.ru-board.com/topic.cgi?forum=33&topic=8142


Реклама на форуме Ru.Board.

Powered by Ikonboard "v2.1.7b" © 2000 Ikonboard.com
Modified by Ru.B0ard
© Ru.B0ard 2000-2024

BitCoin: 1NGG1chHtUvrtEqjeerQCKDMUi6S6CG4iC

Рейтинг.ru