Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

Восстановить пароль

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 17.12.2012, 12:45   #1
AHBAR
Пользователь
 
Регистрация: 23.11.2012
Сообщений: 10
По умолчанию Значение LabeledEdit не переводится в Integer

Хочу чтобы работала переменная Start. Но делфи ругается, говорит что 'Starting Number of mask' is not a valid integer value
Где Starting Number of mask это LabeledEdit1.EditLabel.Caption
Код:
procedure TSaveParDlg.OKBtnClick(Sender: TObject);
VAR
Start,i:Integer;
SL:TstringList;
begin
SL:=TStringList.Create;
Form1.ProgressBar1.Max := Form1.ListBox1.Count-1;
Form1.ProgressBar1.Position := 0;
FOR i := 0 TO Form1.ListBox1.Count-1 DO
BEGIN
Start := StrToInt(SaveParDlg.LabeledEdit1.EditLabel.Caption);
SL.Add('    ' + IntToStr(i + Start) + ':');
SL.Add('      mask: ' + Form1.ListBox1.Items[i]);
SL.Add('      prefix: ' + SaveParDlg.LabeledEdit2.EditLabel.Caption);
SL.Add('      type: called');
SL.Add('      Stimer: ' + SaveParDlg.LabeledEdit3.EditLabel.Caption);
SL.Add('      Ltimer:' + SaveParDlg.LabeledEdit4.EditLabel.Caption);
SL.Add('      Duration: ' + SaveParDlg.LabeledEdit5.EditLabel.Caption);
Form1.ProgressBar1.Position := Form1.ProgressBar1.Position + 1;
END;
IF not Form1.SaveDialog1.Execute THEN Exit;
SL.SaveToFile(Form1.SaveDIalog1.FileName+'.txt');
end;
AHBAR вне форума Ответить с цитированием
Старый 18.12.2012, 05:50   #2
AHBAR
Пользователь
 
Регистрация: 23.11.2012
Сообщений: 10
По умолчанию

А все понятно, надо было:
Код:
Start := StrToInt(SaveParDlg.LabeledEdit1.Text);
AHBAR вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Object Pascal, LabeledEdit Антон Лысенко Помощь студентам 0 12.03.2011 22:30
Вычесть из Integer Form2 Integer Form1 Shouldercannon Общие вопросы Delphi 2 30.07.2010 17:47
какое значение переменной integer по умолчанию? vitaliy1911 Общие вопросы Delphi 11 25.05.2010 14:36
как это переводится в Delphi ??? Alisko_1603 Помощь студентам 1 18.04.2010 14:11