Модераторы: Poseidon, Snowy, bems, MetalFan
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Нужна помощ, dmPelsWidth:=640; 
:(
    Опции темы
lider07
  Дата 30.7.2003, 12:04 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 80
Регистрация: 11.6.2003
Где: Бишкек

Репутация: нет
Всего: нет



dmPelsWidth:=640; как вместь 640 подставлять значение из едит1
я пишу так dmPelsWidth:=strtoint(edit1.text); так неработает
посоветуйте пожайлуста
PM MAIL ICQ MSN   Вверх
Akella
Дата 30.7.2003, 12:27 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Творец
****


Профиль
Группа: Модератор
Сообщений: 18485
Регистрация: 14.5.2003
Где: Корусант

Репутация: 36
Всего: 329



А какие сообщения выдаются. Может дело не в конвертации, а ты уверен, что dmPelsWidth это целочисленный тип?
PM MAIL   Вверх
lider07
Дата 30.7.2003, 12:31 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 80
Регистрация: 11.6.2003
Где: Бишкек

Репутация: нет
Всего: нет



генерируется integer
и мне надо заносить вместо 640
dmPelsWidth:=640;
заранее благодарен
PM MAIL ICQ MSN   Вверх
Akella
Дата 30.7.2003, 12:36 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Творец
****


Профиль
Группа: Модератор
Сообщений: 18485
Регистрация: 14.5.2003
Где: Корусант

Репутация: 36
Всего: 329



Что значит "генерируется интегер"
А вообще-то я непонял:
Цитата
генерируется integer
и мне надо заносить вместо 640
dmPelsWidth:=640;
заранее благодарен

Извини, но если можно поподробнее
PM MAIL   Вверх
lider07
Дата 30.7.2003, 12:47 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 80
Регистрация: 11.6.2003
Где: Бишкек

Репутация: нет
Всего: нет



вот эта строка часть кода: dmPelsWidth:=640;
в edit1.text - генерируются числа и мне надо чтобы из edit1.text подставлялось значение вместо 640
PM MAIL ICQ MSN   Вверх
Akella
Дата 30.7.2003, 12:54 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Творец
****


Профиль
Группа: Модератор
Сообщений: 18485
Регистрация: 14.5.2003
Где: Корусант

Репутация: 36
Всего: 329



А не выдает сообщение о том что "StrToInt" - неизвестный индентификатор
PM MAIL   Вверх
Akella
Дата 30.7.2003, 12:55 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Творец
****


Профиль
Группа: Модератор
Сообщений: 18485
Регистрация: 14.5.2003
Где: Корусант

Репутация: 36
Всего: 329



Будь уверен, что у тебя в Edit1.text только число. Если будет число, а за ним пробел, то выдаст ошибку - исключительная ситуация
PM MAIL   Вверх
lider07
Дата 30.7.2003, 13:02 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 80
Регистрация: 11.6.2003
Где: Бишкек

Репутация: нет
Всего: нет



а что делать - посоветуйте?
PM MAIL ICQ MSN   Вверх
Akella
Дата 30.7.2003, 13:02 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Творец
****


Профиль
Группа: Модератор
Сообщений: 18485
Регистрация: 14.5.2003
Где: Корусант

Репутация: 36
Всего: 329



Цитата

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
i: integer;
begin
  i:=StrToInt(Edit1.Text);
end;

end.


У меня все работает
PM MAIL   Вверх
<Spawn>
Дата 30.7.2003, 13:15 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Око кары:)
****


Профиль
Группа: Экс. модератор
Сообщений: 2776
Регистрация: 29.1.2003
Где: Екатеринбург

Репутация: 44
Всего: 64



lider07 Для возможности исключения ошибочных ситуации с конверцией из string-а в integer, я пользуюсь StrToIntDef() или , что еше лучше, ограничиваю саму возможность введения неправильных значения, например на OnKeyPress ставить что то типа этого:
Код

if not (Key in ['0'..'9','-',Chr(VK_BACK)]) then
Key:=#0;


Это сообщение отредактировал(а) <Spawn> - 30.7.2003, 13:20


--------------------
"Для некоторых людей программирование является такой же внутренней потребностью, подобно тому, как коровы дают молоко, или писатели стремятся писать" - Николай Безруков.
PM MAIL ICQ   Вверх
B2_Russia
Дата 30.7.2003, 13:17 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


В доску свой :)
**


Профиль
Группа: Участник
Сообщений: 344
Регистрация: 3.7.2003
Где: Тверь

Репутация: нет
Всего: 1



Проверь функцией dmPelsWidth:=StrToIntDef(Edit1.Text,-1);
Если в dmPelsWidth запишется -1, то точно в строке ошибка.

Да и вообще насамом деле какого типа у тебя dmPelsWidth?

PM WWW ICQ   Вверх
lider07
Дата 30.7.2003, 13:23 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 80
Регистрация: 11.6.2003
Где: Бишкек

Репутация: нет
Всего: нет



спасибо за помощь - я разобрался
проблкма в том что код был в отдельно йпроцедуре
и мне надо было писать так strtoint(Form1.Edit1.Text);
спасибо за поддержку и помощь

PM MAIL ICQ MSN   Вверх
PostEr
Дата 30.7.2003, 13:41 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 282
Регистрация: 30.6.2003
Где: Самара

Репутация: нет
Всего: 1



dmPelsWidth это наверное из DEVMODE?


--------------------

------------------------------------------------------------------

[email protected]
До востребования

PM MAIL WWW ICQ   Вверх
B2_Russia
Дата 30.7.2003, 13:55 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


В доску свой :)
**


Профиль
Группа: Участник
Сообщений: 344
Регистрация: 3.7.2003
Где: Тверь

Репутация: нет
Всего: 1



smile.gif biggrin.gif biggrin.gif Не-за-что обращайся
PM WWW ICQ   Вверх
  
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Общие вопросы"
SnowyMetalFan
bemsPoseidon
Rrader

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи


Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader.

 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Общие вопросы | Следующая тема »


 




[ Время генерации скрипта: 0.4525 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.