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

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

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

ShIvADeSt (28-06-2009 02:10): Продолжение в http://forum.ru-board.com/topic.cgi?forum=33&topic=10477  Версия для печати • ПодписатьсяДобавить в закладки
Страницы: 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 101

   

spasius



Advanced Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Aleksandr N
может просто вставить? а не конвертировать. в плане сохранненых данных это выглядит как обычное бинарное вложение. /code /code ...

Всего записей: 695 | Зарегистр. 16-03-2009 | Отправлено: 20:02 20-06-2009
Michael007Pro



Junior Member
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
Не знаю можно-ли сюда писать подобные просьбы, но напишу. Сорри, если что.
Помогите с написанием простейшей программы на делфи: конвертер валют(из рублей в долары, и обратно, и из рублей в евро, и обратно), а также запрет ввода букв вместо цифр.
Друг попросил, очень надо. Сам особо не шарит. Нужно до завтрашнего вечера.
Ps ещё раз извините, если не сюда обратился.
Ps2^ В гугле ничо не нашёл.
Ps3 Если что, постучите в аську или в личку напишите.

Всего записей: 183 | Зарегистр. 08-04-2007 | Отправлено: 20:49 20-06-2009 | Исправлено: Michael007Pro, 23:09 20-06-2009
Kursist



Junior Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Запреты на ввод букв вместо цифр я люблю!
У едита есть событие KeyPress в него пишешь:
 
procedure TForm1.EditKeyPress(Sender: TObject; var Key: Char);
begin
  case Key of
  '0'..'9': ;
 // '.',',':Key:=DecimalSeparator;
  #8: ;
  #13: ;
  else Key:=Chr(0);
  end;
end;
 
Если нужно разрешить ввод числа с запятой - убери комент на DecimalSeparator. Кстати, этот код подставляет автоматически меняет , . на правильный символ.
 
Такой конвертор - элементарно:
В один едит вводишь значение, это значение умножаешь на коеффициент и выводишь куда надо (например в другой едит).  
Всё!
 
Можешь написать мультивалютный конвертер:
В один едит вводишь курс валюты, в другой вводишь сумму (в тугриках), в третий едит выводишь произведение суммы на курс.

Всего записей: 137 | Зарегистр. 12-07-2004 | Отправлено: 21:25 20-06-2009 | Исправлено: Kursist, 21:32 20-06-2009
Aleksandr N

Advanced Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
spasius
Ну в данном случае это не подходит. Мне нужно из N-ного редактора с Flash роликом сохранить данные в RTF файл. Т.е. нужна перекодировка или нечто подобное.

Всего записей: 1665 | Зарегистр. 25-02-2008 | Отправлено: 21:44 20-06-2009
Michael007Pro



Junior Member
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
Kursist
Спасибо. Но ему хорошо бы, чтобы уже готовая прога была. Думаю он врядле что разберёт из твоего написанного).

Всего записей: 183 | Зарегистр. 08-04-2007 | Отправлено: 23:11 20-06-2009
Frodo_Torbins

Silver Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Michael007Pro
А гугл совсем уже ничего не выдает? Или этот вариант чем то не подходит? А вообще такие вещи за деньги делаются.

Всего записей: 2318 | Зарегистр. 24-05-2007 | Отправлено: 23:35 20-06-2009
Kursist



Junior Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Michael007Pro
Ну, если он не может разобраться даже в моем коде, а ему надо дешево, надежно и сердито, тогда ему прямой путь к обычному калькулятору. Чем плох такой вариант? Но это уже не относится к теме - "Вопросы по Дельфи"!!! как и вообще к вопросам по программированию!

Всего записей: 137 | Зарегистр. 12-07-2004 | Отправлено: 00:23 21-06-2009 | Исправлено: Kursist, 00:24 21-06-2009
Aquest

Newbie
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Проблема:  
есть диск,на котором находится  множество файлов.
Нужно через форму Delphi просматривать содержимое диска, выделить необходимые файлы и считать их имена(для дальнейшего помещения в БД).
Вопрос: какие компоненты, функции и.т.д. для этого использовать.

Всего записей: 10 | Зарегистр. 11-12-2006 | Отправлено: 13:21 22-06-2009
f3ka

Full Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Aquest
компонент TOpenDialog
а дальше F1

Всего записей: 497 | Зарегистр. 02-03-2007 | Отправлено: 13:32 22-06-2009
SIgor33

Advanced Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Aquest
TFileListBox и его наследники

Всего записей: 652 | Зарегистр. 03-03-2009 | Отправлено: 16:01 22-06-2009
volser

Advanced Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Aquest
можно еще использовать компонент TShellListView с закладки Samples, не нужно открывать отдельный диалог

Всего записей: 713 | Зарегистр. 31-03-2006 | Отправлено: 16:29 22-06-2009
Cryogen2003



Advanced Member
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
Добрый день.  
Появилась проблема, на работе расширили список пользователей моего софта, но у них всех стоит OpenOffice и стало быть мой самописный в свое время компонент экспорта в excel не работает. Как быстро переписать так, чтобы у всех пользователей экспорт работал и было без разницы, стоит Microsoft Excel или OpenOffice.

----------
Холодильники мы

Всего записей: 745 | Зарегистр. 08-12-2004 | Отправлено: 15:07 24-06-2009
f3ka

Full Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Cryogen2003
если на рубоарде нету темы по программированию для OpenOffice, то есть замечательная тема здесь...
а вообще я думаю что придется много чего переписывать, вот если бы файлы создавались напрямую без использования Excel (типа XLSReadWrite) то было проще в вашей ситуации...

Всего записей: 497 | Зарегистр. 02-03-2007 | Отправлено: 15:19 24-06-2009
Cryogen2003



Advanced Member
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
f3ka
если к примеру воспользоваться что-то типа EMS Advanced Data Export Component Suite, то мне это поможет или нет? Там есть в принципе создание как XLS файлов, так и ODS файлов.  
 
Хотя конечно хотелось бы без создания промежуточных файлов, так как есть много пользователей, которые сидят через удаленку и без любой возможности сохранения в файл чего-либо.

----------
Холодильники мы

Всего записей: 745 | Зарегистр. 08-12-2004 | Отправлено: 15:23 24-06-2009
Grande



Full Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Добрый день, уважаемые знатоки.
Вот какая у меня неприятность случилась (Delphi7, PostgreSQL, ZeosBDO):
Прога заполняет БД всяческими инфами с обязательным указанием даты-времени. До некоторых пор все идет гладко. Но, вдруг, ни с того, ни с сего, сервер PostgreSQL возвращает ошибку о якобы недопустимом формате этой самой даты-времени. Я уже перед отправкой данных на сервер сохраняю (для проверки) эти данные в файл. Судя по записям в файле, формат даты-времени не изменился, но вот последняя запись не прокатывает
Не было ли у кого подобной траблы?
Не посоветуете ли чего?
Спасибо.

Всего записей: 588 | Зарегистр. 18-09-2003 | Отправлено: 08:26 25-06-2009
ShIvADeSt



Moderator
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Grande
Может на сервере поменялся формат даты. покажи кусок скрипта как пишешь в базу.

----------
И создал Бог женщину... Существо получилось злобное, но забавное...

Всего записей: 3956 | Зарегистр. 29-07-2003 | Отправлено: 08:31 25-06-2009
Grande



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

Цитата:
Может на сервере поменялся формат даты

Перезапускаю прогу - опять все работает до какого-то момента, а потом опять ошибка.

Код:
 
  qryTools.SQL.Text := 'insert into tools (frame, number, start, rsite_id, ' +
  'alarm , mo)' + #13#10 + 'values (''' + Frame + ''', ''' + FaultNo + ''', ateTime' +
  ', ''' + RSite + ''', ''' + fType + ''', ''' + MO + ''');' + #13#10;
  qryTools.ParamByName('DateTime').AsDateTime := StrToDateTime(FaultDate + ' ' + FaultTime);
 

 
PS. Какая-то мордашка вылезла в коде
Там должно быть : D

Всего записей: 588 | Зарегистр. 18-09-2003 | Отправлено: 08:38 25-06-2009 | Исправлено: Grande, 08:45 25-06-2009
f3ka

Full Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Grande
а для PostgreSQL не существует никакого родного софта для отслеживания запросов приходящих в базу? то что код формирует корректную строку не означает, что парсер запроса ZeosBDO корректно передает его в базу... вот именно пришедший запрос в базу как нибудь увидеть бы...
З.Ы. чтоб рожицы всякие не выскакивали - снимай галку "разрешить смайлики" при посте сообщения

Всего записей: 497 | Зарегистр. 02-03-2007 | Отправлено: 08:54 25-06-2009 | Исправлено: f3ka, 08:56 25-06-2009
Grande



Full Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
f3ka
Дельная мысль, пошукаю сейчас что-либо подобное. Спасибо.

Всего записей: 588 | Зарегистр. 18-09-2003 | Отправлено: 08:56 25-06-2009
SIgor33

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

Цитата:
  qryTools.ParamByName('DateTime').AsDateTime := StrToDateTime(FaultDate + ' ' + FaultTime);

А где у тебя параметр что я его невижую. Вызов его вижу а запросе нет
 

Всего записей: 652 | Зарегистр. 03-03-2009 | Отправлено: 09:13 25-06-2009
   

Страницы: 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 101

Компьютерный форум Ru.Board » Компьютеры » Прикладное программирование » Вопросы по Delphi (все версии) - часть 4
ShIvADeSt (28-06-2009 02:10): Продолжение в http://forum.ru-board.com/topic.cgi?forum=33&topic=10477


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

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

BitCoin: 1NGG1chHtUvrtEqjeerQCKDMUi6S6CG4iC

Рейтинг.ru