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

НовостиФайловые архивы
ПоискАктивные темыТоп лист
ПравилаКто в 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
Aaz68

Newbie
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
vserd
Действительно, имя учетной записи русское, и соответстаенно в переменных кракозябры. Спасибо, буду копать настройки.

Всего записей: 5 | Зарегистр. 29-11-2006 | Отправлено: 10:24 13-02-2007
relictus

Silver Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Ну гляньте кто-нибудь как решить проблемку: http://forum.ru-board.com/topic.cgi?forum=33&topic=1838&start=100#20
Все-таки вопрос скорее не по EhLib'у, а по БД.

Всего записей: 3712 | Зарегистр. 19-04-2005 | Отправлено: 10:59 13-02-2007
killerbeanjeka

Junior Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
relictus
На событие изменения данных в Датасете делай Датасет.Post;

Всего записей: 86 | Зарегистр. 27-09-2006 | Отправлено: 16:48 14-02-2007
GTA3

Junior Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
нужно сделать конвертер
 есть к примеру строка
 
   Дата                               счет                                   сумма      
│ 1.12.2006│09│308   │30223810700000000002     │           83  │
 
надо сделать конвертер который будет из текстового файла перекидывать
определенные поля (в моем случае поле дата счет и сумма)
причем таких строк много...  
каким способом можно это осуществить ?
 
 
       
 
 
Добавлено:
че то цифры нормально не отобразились некоторые данные которые написал я

Всего записей: 114 | Зарегистр. 22-07-2004 | Отправлено: 17:40 14-02-2007
killerbeanjeka

Junior Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
GTA3
 
Читай построчно текстовый файл, отбирай данные в переменные и пиши в таблицу так:
Подробнее...

Всего записей: 86 | Зарегистр. 27-09-2006 | Отправлено: 18:16 14-02-2007 | Исправлено: killerbeanjeka, 18:43 14-02-2007
GTA3

Junior Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
killerbeanjeka
может поможешь мне это сделать?
я сам просто не программер а это надо успеть сделать сегодня...
был бы очень признателен за помощь

Всего записей: 114 | Зарегистр. 22-07-2004 | Отправлено: 20:14 14-02-2007
Solnake



Advanced Member
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
GTA3
Если неотозвались и сильно очень нада - стукни мне в асю 219221938

----------
Я не страдаю манией величия, я ею наслаждаюсь(с)

Всего записей: 826 | Зарегистр. 16-09-2004 | Отправлено: 20:54 14-02-2007
killerbeanjeka

Junior Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
GTA3
 
Если еще надо помощь, то вышли мне файл (ну или часть файла) которые надо переконвертировать на myagkiy(собака)gmail.com

Всего записей: 86 | Зарегистр. 27-09-2006 | Отправлено: 09:56 15-02-2007
Zubrb

Newbie
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Добрый день, комрады.
Есть вопрос по работе с компонентом TTreeView. Надеюсь, что формулировку поставленного вопроса сделал правильно.
 
Я пользуюсь этим методом, что бы присвоить Items[1].Date ссылку на файл html
var
 S:String;
 P:PString;
begin
 S:=Edit3.Text; //в поле Edit3 введена полная ссылка на файл html
 New(p);
 p^ := s;
 Form1.TreeView1.Items[1].Data:=p;
//собственно если вывести вот такое сообщение, то можно увидеть полностью всю ссылку на файл
ShowMessage(String(Form1.TreeView1.Items[1].Data^));
end;
 
Мне нужен иерархический список, при выборе элементы списка компонент TWebBrowser открывал html страницу по указанной ссылке, таким образом при выборе элемента Items[1] отображается страница.
 
Теперь собственно задача: как мне присвоить каждому элементу ссылку на файл, сохранить все данные и затем при запуске программы что бы все восстанавливалось. И как собственно определить с каким ID Items я работаю в текущий момент, что бы присвоить ему значение.
Или подскажите каким методом мне пользоваться, что бы сохранять и загружать структуру TTreeView, при этом сохраняя параметр Date каждого Items???
 
Заранее всем спасибо.

Всего записей: 4 | Зарегистр. 17-11-2005 | Отправлено: 14:14 16-02-2007
OdesitVadim



Advanced Member
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
Zubrb
Ну и кто тебе мешает написать сохранение? Первый вариант - сохранятся рекурсивно в текстовый документ или xml. Когда то давно я решил эту проблему гараздо проще. Имя ноды - это собственно нужный текст+'|'+имя файла.Теперь мы можем воспользоваться встроеными методами в treeView. А что бы пользователя не смущал длиный текст ноды, то я делаю ручную прорисовку.

----------
Press any key to continue or any other key to exit
Пишите так, чтобы не было стыдно за нобелевскую премию.

Всего записей: 1568 | Зарегистр. 19-09-2003 | Отправлено: 15:23 16-02-2007
Butcher



Junior Member
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
Может, кто-то работает с OpenOffice? Бьюсь третий день с присвоением массива диапазону ячеек. Судя по накопанному в интернете, нужно делать так

Код:
 
var Matrix: Variant;
begin
  Matrix:= VarArrayCreate([1,2,1,2],varVariant);
  Matrix[1,1]:= 'Бла-бла';
  ...
  Matrix[2,2]:= 1;
  ActiveSheet.getCellRangeByName('A1:B2').SetDataArray(Matrix);
end;
 

Однако при выполнении SetDataArray() получаю невразумительную ошибку 'com.sun.star.RunException'.  
Подскажите, как побороть?

Всего записей: 41 | Зарегистр. 12-02-2003 | Отправлено: 09:51 21-02-2007 | Исправлено: Butcher, 09:52 21-02-2007
OOD

Silver Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Люди добрые подскажите :
Есть таймер в нем нужно значение из TEdit поместить в интовую переменную , и далее эту переменную установить как интервал в таймере  
 
 
Вопрос как поместить значение из TEdit  в интовую переменную чтобы можно можно было значение введение в TEdit установить в интервале таймера  
пробую вот так  
Timer1.Interval:=StrToInt(интовая_переменная);  
 
Не получается  
 
Подскажите может можно как-то по другому поместить значение из Edit в интервал таймера?
 

Всего записей: 3379 | Зарегистр. 20-05-2006 | Отправлено: 15:33 21-02-2007
RomanTim

Member
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
OOD
 Timer1.Interval:=StrToInt(Edit1.Text);

Всего записей: 375 | Зарегистр. 11-09-2003 | Отправлено: 16:35 21-02-2007 | Исправлено: RomanTim, 16:36 21-02-2007
Betorgon



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

Всего записей: 272 | Зарегистр. 19-05-2006 | Отправлено: 19:18 21-02-2007
oan42



Full Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Betorgon
http://www.codeaccelerate.com/drawing_engine.html
см. папку MiniCAD в скачанных исходниках.

Всего записей: 488 | Зарегистр. 03-08-2004 | Отправлено: 22:09 21-02-2007
andead



Advanced Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
как TStringList сохранить в кодировке UTF-8? или что использовать для этого? в TTntStringList не понял как это делать

Всего записей: 1821 | Зарегистр. 22-09-2005 | Отправлено: 21:41 22-02-2007
Zergboy



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

Цитата:
Где можно найти исходник простенького графического редактора, а то нужен срочно, а не занимался этим давно?

Если совсем простенький - посмотри, может это пойдет
h--tp://delphiworld.narod.ru/base/graphic_editor.html


----------
Мы делили апельсин
Много наших полегло

Всего записей: 243 | Зарегистр. 16-12-2004 | Отправлено: 01:00 23-02-2007
vshersh



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

Цитата:
 
procedure TForm1.FormCreate(Sender: TObject);
var
  _StrList: TStrings;
begin
  _StrList := TStringList.Create;
  try
    _StrList.Add('Поздравляю всех с праздником защитника отечества!');
    _StrList.Add('Мужики! С 23-м февраля! Всех благ!');
    _StrList.Text := AnsiToUtf8(_StrList.Text);
    _StrList.SaveToFile('c:\congratulations_utf8.txt');
  finally
    _StrList.Free;
  end;
end;  

Всего записей: 506 | Зарегистр. 12-01-2006 | Отправлено: 09:54 23-02-2007
SERGE_BLIZNUK

Silver Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
vshersh
Пост - СУПЕР!!!!!! Спасибо!


[offtop]
С праздником, мужики!!! Мирного неба,крепкого здоровья, удачи, любви, боевых подруг и благополучия! И чтобы проблемы были только с вопросами по Delphi ))

Всего записей: 2014 | Зарегистр. 12-09-2002 | Отправлено: 12:54 23-02-2007
andead



Advanced Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
SERGE_BLIZNUK
бесполезно, в ANSI сохраняет с вопросиками вместо неопознанных символов

Всего записей: 1821 | Зарегистр. 22-09-2005 | Отправлено: 13:47 23-02-2007
   

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