редактирование текста в делфи

[Sparkman]

Сообщение от SonicBob

когда была точка была таже ошибкаал поможет ) поэтому и поменял точку на запятую думал поможет

тьфу ты, блин
integer - это целочисленный тип, в него нельзя точки вставлять

используйте вещественные типы.

[SonicBob]

бррр еще раз
смотри у меня есть лист бокс с этими числам (оч много) и есть кейс с формулами (в данный момент просто коэффициентами) мне надо что б значение из листбокса построчно множилось на ко-т
уже все вроде работает как надо остально только вот эта ошибка
в чем искать проблему ? или выложить сюда весь код?

[Valio]

построчно множилось на ко-т

Что такое "ко-т"?

В ЛистБокве хранятся строки. Их тип String.

Для того чтоб получилось число из строки пользуются StrToInt или StrToFloat в зависимости от того целое у тебя число или нет.

Выкладывай код кароче.

[SonicBob]

ко-т = коэффициент просто долги писать)

var
  Form1: TForm1;
  f:textfile;
  i,n,o:integer;

FName,s,ks,fam:string;

    //ðàçäåëåíèå íà ñòîëáöè
procedure TForm1.Button2Click(Sender: TObject);

begin
for i :=0 to ListBox1.Count - 1 do
begin

s := ListBox1.Items.Strings[i];
listbox2.Items.Add(''+trim(copy(s,1,pos('-',s)-1)));
delete(s,1,pos('-',s)-1);
listbox3.Items.Add(''+trim(copy(s,1,pos(' -',s)-1)));
delete(s,1,pos(' ',s));
listbox4.Items.Add(trim(s));
end;
end;
................................
//ðàáîòà ñ ôóíêöèÿìè
procedure TForm1.Button7Click(Sender: TObject);
var
k,m,lb:real;
begin
case combobox1.itemindex of  //èäåÿ çàäàòü òóò ôóêöèè
0:k:=2 ;
end;
for i:= 0 to ListBox2.Count - 1 do //ðàñ÷åò  ïî ñòðîêàì
begin
edit1.Text:=(ListBox2.items[i]);
lb:=strtofloat(edit1.Text);
m:=k*lb;
ListBox5.Items.Add(floattostr(m)); //ïðîôèò ïî ñòðîêàì
 end;
end;

end.

вот кусок по которому проблемы

[Valio]

Так, и на какой строке ошибка вылетает?

[SonicBob]

ни на какой просто пишет 359,5083 is not a valid integer value или что то подобное если надо точно посмотрю но сють эта

[Valio]

Кароче скинь архив с прогой (исходниками).

[SonicBob]

скинул в личку

[Valio]

Вообщето тут уже про это многое написали. Надо писать:

lb := strtofloat(ListBox2.items[i]);

А у тебя было:

lb := strtoInt(ListBox2.items[i]);

[SonicBob]

делал и так я же не просто так тему сделал)
специально сделал скрин с ошибкой при том как валио написал сделать