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

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Как присвоить значаение? 
V
    Опции темы
ACMilian
Дата 18.9.2006, 10:45 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


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

Репутация: нет
Всего: нет
есть код:
Код

New( i );
      i^.h := GetNextTerm( s );
      i^.v := GetNextTerm( s );
      i^.v := StringReplace(i^.v, ',', DecimalSeparator, []);
      i^.v := StringReplace(i^.v, '.', DecimalSeparator, []);
      b := StrToFloat(i^.v); }

Почему b не присваивается значение i^.v?
Подскажите, кто знает.
PM MAIL ICQ   Вверх
Alexeis
Дата 18.9.2006, 11:01 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Амеба
Group Icon


Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

Репутация: 109
Всего: 459
Цитата(ACMilian @  18.9.2006,  10:45 Найти цитируемый пост)
Почему b не присваивается значение i^.v?

Значение  b равно 0 ?


--------------------
Vit вечная память.

Обсуждение действий администрации форума производятся только в этом форуме

гениальность идеи состоит в том, что ее невозможно придумать
PM ICQ Skype   Вверх
ACMilian
Дата 18.9.2006, 11:32 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


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

Репутация: нет
Всего: нет
Да, пишет, что b равно нулю., хотя i^.v равно 0.0093.
PM MAIL ICQ   Вверх
VitalikOmsk
Дата 18.9.2006, 11:33 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

Репутация: нет
Всего: нет
ты сделай это дело пошагово и увидишь почему так происходит
PM MAIL   Вверх
Yanis
Дата 18.9.2006, 11:44 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


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

Репутация: 72
Всего: 111
Цитата(ACMilian @  18.9.2006,  12:32 Найти цитируемый пост)
Да, пишет, что b равно нулю., хотя i^.v равно 0.0093. 

b и i каких типов? Полный код давай.


--------------------
user posted image *щёлк*
PM MAIL WWW ICQ   Вверх
ACMilian
Дата 18.9.2006, 12:00 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


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

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

function ReadToSList;
var
  a,s: string;
  b: Real;
   t: TextFile;
  i: PSCalItem;
  im: PMCalItem;
  i2: PKCalItem;
  d1,d2,d3,d4,d5,d6,d7: string;
  BeltNum: integer;
begin
CalList.Clear;
SCalList.Clear;
MCalList.Clear;
MMCalList.Clear;
CCalList.Clear;
KCalList.Clear;
sbSeparators := [];
sbEmpty := sbEmpty+[':'];
AssignFile( t, ExtractFilePath(ParamStr(0)) + 'templ.txt' );
Reset( t );
Readln( t, d1 );
Readln( t, d2 );
Readln( t, d3 );
Readln( t, d4 );
Readln( t, d5 );
Readln( t, d6 );
Readln( t, d7 );
CloseFile( t );
AssignFile( t, fname );
Reset( t );
BeltNum := 1;
while not eof(t) do
  begin
  // Ищем таблицу калибровки
  repeat
    Readln( t, s );
  until (s=d1) or (s=d3) or (s=d4) or (s=d7);{or eof(t);}
  //if eof(t) then Break;
  if s=d7 then
  begin
  // Читаем калибровки
  Readln( t, s );
  while s<>d2 do
    //begin
    //while s<>'' do
      begin
      New( i );
      i^.h := GetNextTerm( s );
      i^.v := GetNextTerm( s );
      i^.v := StringReplace(i^.v, ',', DecimalSeparator, []);
      i^.v := StringReplace(i^.v, '.', DecimalSeparator, []);
      b := StrToFloat(i^.v);
 

Вот в последней строке b = 0. При пошаговом просмотре.
PM MAIL ICQ   Вверх
Snowy
Дата 18.9.2006, 12:04 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


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

Репутация: 192
Всего: 484
А поставить бряку и посмотреть значение переменных никак?
PM MAIL   Вверх
Romikgy
Дата 18.9.2006, 12:10 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Любитель-программер
****


Профиль
Группа: Участник Клуба
Сообщений: 7326
Регистрация: 11.5.2005
Где: Porto Franco Odes sa

Репутация: 26
Всего: 146
Цитата(ACMilian @  18.9.2006,  11:00 Найти цитируемый пост)
 i: PSCalItem;

имхо интереснее будет посмотреть на эту стуктуру


--------------------
Владение русской орфографией это как владение кунг-фу — истинные мастера не применяют его без надобности. 
smile
PM   Вверх
ACMilian
Дата 18.9.2006, 12:21 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


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

Репутация: нет
Всего: нет
type
              PSCalItem = ^TSCalItem;
              TSCalItem = record
                h: string[4];
                v: string[15];
                n: integer;
              end;

Дак всё с файла читает( пошагово видно), но b не хочет брать значение i^.v.
PM MAIL ICQ   Вверх
Yanis
Дата 18.9.2006, 12:59 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


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

Репутация: 72
Всего: 111
Цитата(ACMilian @  18.9.2006,  13:21 Найти цитируемый пост)
 v: string[15];

Ну ты прежде чем конвертировать, посмотри что у тебя в V лежит! И действительно F7 тебе в руки!


--------------------
user posted image *щёлк*
PM MAIL WWW ICQ   Вверх
ACMilian
Дата 18.9.2006, 14:20 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


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

Репутация: нет
Всего: нет
Дак что неправильно, я не понимаю. F7,F7,F7,F7 но b равно нулю.
Люди, может есть другой способ присвоить b значение i^.v?
PM MAIL ICQ   Вверх
Elfebet
Дата 18.9.2006, 15:43 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 545
Регистрация: 15.5.2006
Где: Украина. Запорожь е.

Репутация: 2
Всего: 14
Цитата

Да, пишет, что b равно нулю., хотя i^.v равно 0.0093. 

если это так... ИМХО, вместо b: Real; поставь b: Double;

Добавлено @ 15:44 
оно?


--------------------
Программист не должен всё знать... он должен знать где можно посмотреть
PM MAIL ICQ GTalk   Вверх
Romikgy
Дата 18.9.2006, 16:12 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Любитель-программер
****


Профиль
Группа: Участник Клуба
Сообщений: 7326
Регистрация: 11.5.2005
Где: Porto Franco Odes sa

Репутация: 26
Всего: 146
Цитата(ACMilian @  18.9.2006,  13:20 Найти цитируемый пост)
но b равно нулю

а в 
Цитата(ACMilian @  18.9.2006,  13:20 Найти цитируемый пост)
i^.v

что?


--------------------
Владение русской орфографией это как владение кунг-фу — истинные мастера не применяют его без надобности. 
smile
PM   Вверх
ACMilian
Дата 18.9.2006, 17:05 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


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

Репутация: нет
Всего: нет
В объявление переменных добавил:
p : ^Real;
и в коде сделал так:
p :=@b;
b := StrToFloat(i^.v);
Теперь видит.
Всем спасибо.
PM MAIL ICQ   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Общие вопросы"
SnowyMetalFan
bemsPoseidon
Rrader

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

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

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

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

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Общие вопросы | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




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


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

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