Добавление элементов в ListBox Delphi

[Базиля]

теперь программа пишет Value assigned to X never used..

Это не ошибка, а предупреждение....Это логично т.к. изменяемое значение x

X:=X+S;

ты нигде не используешь... Лишняя строка...

а у меня он разве не строкового типа стал? с помощью команды IntToStr?

Извиняюсь, показалось что стояла функция strtoint

[Nordbank]

Сообщение от Базиля

Это не ошибка, а предупреждение....Это логично т.к. изменяемое значение x

X:=X+S;

ты нигде не используешь... Лишняя строка...

Извиняюсь, показалось что стояла функция strtoint

почему я нигде не использую? я хочу чтобы на каждом шаге x увеличивалась на s!

[Базиля]

Он устраивает, но он почему-то не заполняет элементами список! он остается пустым

У тебя не изменяются параметры цикла, будет происходить зацикливание. Неизвестно что ты подаешь на вход. Список в прицнипе не должен быть пустым, он просто будет нескончаемым...

почему я нигде не использую? я хочу чтобы на каждом шаге x увеличивалась на s!

одного желаения здесь мало, тут потребуются операторные скобки. И измени параметры условия цикла на корректные

[Nordbank]

Сообщение от Базиля

У тебя не изменяются параметры цикла, будет происходить зацикливание. Неизвестно что ты подаешь на вход. Список в прицнипе не должен быть пустым, он просто будет нескончаемым...

одного желаения здесь мало, тут потребуются операторные скобки. И измени параметры условия цикла на корректные

а как это сделать подскажи пожалуйста

[Базиля]

Если учитывать что в edit1 - содержится начальное значение, edit2 - конечное, edit3 -шаг. То код будет таким :

procedure TForm1.Button1Click(Sender: TObject);
var
 x:real;
 begin
 X:= StrTofloat(Edit1.text);
 While x <= strtofloat(edit2.text) do
 begin
 ListBox1.Items.Add(floatToStr(X));
 x:=x+strtofloat(edit3.Text);
 end;
 end;

[Nordbank]

Сообщение от Базиля

Если учитывать что в edit1 - содержится начальное значение, edit2 - конечное, edit3 -шаг. То код будет таким :

procedure TForm1.Button1Click(Sender: TObject);
var
 x:real;
 begin
 X:= StrTofloat(Edit1.text);
 While x <= strtofloat(edit2.text) do
 begin
 ListBox1.Items.Add(floatToStr(X));
 x:=x+strtofloat(edit3.Text);
 end;
 end;

Спасибо) это получилось) еще вопрос вот StrToInt - из строкового в инт, а для из Str в real как?

[Базиля]

а для из Str в real как?

strtofloat

Это же есть в моем коде Смотри внимательней

[Nordbank]

Сообщение от Базиля

strtofloat

Это же есть в моем коде Смотри внимательней

О да точно) я просто не врубился сначала) думал там будет что то вроде strToReal))

еще вопрос, как теперь во второй столбец листбокса добавлять числа?

[Nordbank]

Всё спасибо последнее уже не надо) осталось построить график по всему этому делу

[Базиля]

Вдруг кому понадобится:
ListBox1.Items.Add('Столбец 1' ^I 'Столбец 2');
Ширину отступа задаем в свойстве TabWidth (5 единиц - это выйдет примерно средняя ширина символа) самого компонета ListBox.
Но самого понятия как столбцы в ListBox'е нет(не смотря на имеющееся свойство Columns, не понятно если честно для чего оно). Мы так сказать визуально обманываем...