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

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

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

ShIvADeSt (20-04-2006 01:53): http://forum.ru-board.com/topic.cgi?forum=33&topic=6679#1  Версия для печати • ПодписатьсяДобавить в закладки
Страницы: 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 102

   

PowerChute



Full Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Markell
RostY прав. Я же тебе не весь код написал, а так выдержку небольшую.

Цитата:
Но где взять в Windows Forms Application  StringList?

Unit
  Classes

Всего записей: 520 | Зарегистр. 13-10-2004 | Отправлено: 13:21 20-02-2006
Markell



Junior Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
RostY
Я не просто так спрашиваю про этот TstringList. Он является инструментом VCL Forms Applications. А  я работаю с Windows Forms Application - там нет такого!!! Как в такой ситуации быть?
 
 
Добавлено:
PowerChuteДа, спасибо, с TStringList понял.  
Вот только все равно вопросы еще остаются:
 Ведь нельзя же писать текст запроса прямо в тексте программы
в таком виде:
 
Select Distinct city    // открыть запрос
From Customers
 
??? Система ругается и подчеркивает все слова красным. Тоже самое происходит и со словами First, Next, FieldByName, asString...
 
ЗЫ: Извиняюсь, если мои вопросы совсем ламерские, просто только начинаю разбираться с этим всем...

Всего записей: 103 | Зарегистр. 05-10-2004 | Отправлено: 14:25 20-02-2006
Pinocchio

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

Цитата:
А  я работаю с Windows Forms Application

Правильно делаешь. А запросы пиши в кавычках типа:

Код:
 
'Select Distinct city'#32+    // открыть запрос  
'From Customers'  
 

Всего записей: 683 | Зарегистр. 18-11-2002 | Отправлено: 15:12 20-02-2006
Markell



Junior Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Я только все никак не пойму, что же делать со словами First, Next, FieldByName, asString?
Там где-то что-то надо добавить, чтобы они понимались?

Всего записей: 103 | Зарегистр. 05-10-2004 | Отправлено: 16:18 20-02-2006
SERGE_BLIZNUK

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

Цитата:
Я только все никак не пойму, что же делать со словами First, Next, FieldByName, asString?  

 
вы не шутите?!?!?
 
Так срочно всё бросить - и читать, читать, читать...
 
в двух словах - вы бросаете на форму Dataset -  
и вот у него есть методы First Next ....  
вам же Rosty об этом написал...
 
короче, если вам нужен рабочий пример - пишите мне в ПМ
 

Всего записей: 2014 | Зарегистр. 12-09-2002 | Отправлено: 17:00 20-02-2006 | Исправлено: SERGE_BLIZNUK, 17:08 20-02-2006
SergeBS



Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
SERGE_BLIZNUK
Папку \Demos\Db собрался выслать ?

Всего записей: 272 | Зарегистр. 19-04-2005 | Отправлено: 09:12 21-02-2006
ArtSnegirev



Newbie
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Подскажите, пожалуйста!
как проверить, не зянят ли файл другим приложением на запись?
моя прога должна начинать обработку файла только после того, как он будет полностью сформирован и закрыт другой программой.
пробовал открывать через функцию FileOpen(FileName, fmShareExclusive) - не помогает. ( проверял так - открывал файл FARом по F4 и запускал свою прогу - все равно открывается без проблем. а должна подождать пока файл не освободится.

Всего записей: 20 | Зарегистр. 24-05-2004 | Отправлено: 12:01 21-02-2006
SERGE_BLIZNUK

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

Цитата:
Папку \Demos\Db собрался выслать  

8-))) ну, в принципе было бы неплохо... 8-))

Всего записей: 2014 | Зарегистр. 12-09-2002 | Отправлено: 12:02 21-02-2006
vshersh



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

Код:
try
  with TfileStream.Create('имя файла', fmOpenRead or fmShareExclusive) do
    Free;
 //свободен
except
  //занят
end;

Всего записей: 506 | Зарегистр. 12-01-2006 | Отправлено: 12:06 21-02-2006
ArtSnegirev



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

Всего записей: 20 | Зарегистр. 24-05-2004 | Отправлено: 12:53 21-02-2006 | Исправлено: ArtSnegirev, 12:55 21-02-2006
vshersh



Full Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
ArtSnegirev
RTFM Exception, Exception handling
 
try
 // do something raise!
except
  on E: Exception do
//E.Message - text of exception object
     ShowMessage(E.Message);
end;
 

Всего записей: 506 | Зарегистр. 12-01-2006 | Отправлено: 13:13 21-02-2006
Wiz80

Newbie
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Подскажите плиз, как в Delphi 7 установить соединение PPPoE и контролировать его состояние?

Всего записей: 1 | Зарегистр. 15-12-2005 | Отправлено: 00:20 22-02-2006
RostY



Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Кто-то пользовался Ehlib 4.1 ?
 
у меня Incremental search не работает - получаю "List index out of bounds". В версии 3.6 все нормально. Кто-то встречался с такой ситуацией ?

Всего записей: 387 | Зарегистр. 11-01-2006 | Отправлено: 12:48 22-02-2006 | Исправлено: RostY, 12:56 22-02-2006
Markell



Junior Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Скажите плз, кто-нибудь знает, как можно в Windows Forms Application - Delphi 2005 for .Net обратиться к конкретной ячейке объекта DataTable для того, чтобы взять из нее ее значение и затем присвоить его какой-нибудь переменной?

Всего записей: 103 | Зарегистр. 05-10-2004 | Отправлено: 16:01 22-02-2006
OdesitVadim



Advanced Member
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
Markell
Также как и в других Делфях - никак (ну практически). Это работа с базами данных. Там нет "столбцов с номером" там есть поле записи. Пожетому правильный ответ будет - составить SQL запрос, в котором выбрать нужное поле по условию. И во вторых запомни, что говорить ячейка в пятой строке также некорекно, так как строки в базе могут в перемешку и не совсем так как ты их видишь

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

Всего записей: 1568 | Зарегистр. 19-09-2003 | Отправлено: 17:21 22-02-2006
Schatz



Junior Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
(Delphi 7)  
ActiveX+IndyTCPClient='Access violation'
Создаю ActivX форму, ложу на нее idTCPClient1.
Есть процедура:
Procedure StartClient;
Begin
  try
    ClientFrmMain.Client.Connect(10000);//***
    ClientHandleThread := TClientHandleThread.Create(True);
    ClientHandleThread.FreeOnTerminate:=True;
    ClientHandleThread.Resume;
  except
    on E: Exception do MessageDlg ('Error while connecting:'+#13+E.Message, mtError, [mbOk], 0);
  end;
end;
При вызове этой процедуры на на строке *** программа спотыкается и выдает сообщение 'Access violation at adress ******* in nodule ******'
 
Хотя если все перенести в обычный win application то все работает нормально.
 
ПОдскажите как обойти эту проблему.
Зарание огромное спасибо и поздравляю всех с дем защитника.

Всего записей: 55 | Зарегистр. 31-05-2005 | Отправлено: 08:39 23-02-2006
vshersh



Full Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Schatz
Поставь перед строкой *** (сразу после try)  

Код:
Assert(Assigned(ClientFrmMain) and Assigned(ClientFrmMain.Client))

 
и попробуй еще раз

Всего записей: 506 | Зарегистр. 12-01-2006 | Отправлено: 10:19 23-02-2006
Schatz



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

Цитата:
Schatz  
Поставь перед строкой *** (сразу после try)  
 
Assert(Assigned(ClientFrmMain) and Assigned(ClientFrmMain.Client))  
 
 
и попробуй еще раз

 
Сделал как ты сказал - ругается: 'Assertion failure (путь\имя проекта, номер строки) '

Всего записей: 55 | Зарегистр. 31-05-2005 | Отправлено: 10:49 23-02-2006
vshersh



Full Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Schatz
Значит ты обращаешься к пустой переменной или не создан на форме Client.
 
От куда берется значение ClientFrmMain?

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



Junior Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
vshersh
 
TAlexZ_ClientSK = class(TActiveForm, IAlexZ_ClientSK)
    Label1: TLabel;
    Client: TIdTCPClient;
****
****
end;
***
***
var
  ClientFrmMain: TAlexZ_ClientSK;
implementation
***

Всего записей: 55 | Зарегистр. 31-05-2005 | Отправлено: 11:41 23-02-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 101 102

Компьютерный форум Ru.Board » Компьютеры » Прикладное программирование » Вопросы по Delphi
ShIvADeSt (20-04-2006 01:53): http://forum.ru-board.com/topic.cgi?forum=33&topic=6679#1


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

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

BitCoin: 1NGG1chHtUvrtEqjeerQCKDMUi6S6CG4iC

Рейтинг.ru