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

[SonicBob]

есть текст такого плана

359.5417 -10.1054 -16.00
359.8916 -10.1054 -26.20
359.9083 -10.1054 -25.00
359.9250 -10.1054 -24.80

как реализовать в делфи разделение по символам? желательно по минусам

[Mad_Cat]

s:='359.5417 -10.1054 -16.00';
s1:=trim(copy(s,1,pos('-',s)-1));
delete(s,1,pos('-',s));
s2:=trim(copy(s,1,pos('-',s)-1));
delete(s,1,pos('-',s));
s3:=trim(s);

[SonicBob]

если сделать что б
s:=listbox1.Items[listbox1.Itemindex]
как сделать что б программа прогоняла все строки из листа?

[kangreon]

var
  i: Integer;
  s: string;
begin
  for i := 0 to ListBox1.Count - 1 do
  begin
    s := ListBox1.Items.Strings[i];
    // тут уже парсинг
  end;
end;

[SonicBob]

вчера делал так же делфи сматерился и я ушел спать ... мб где то ошибся
спс

еще одна проблема

//работа с формулами
procedure TForm1.Button7Click(Sender: TObject);
var
f:textfile;
i,n:integer;
FName,s,m,ks,fam:string;
k:real;
lb:real;

begin
case combobox1.itemindex of //тут задаем функции на выбор
0:k:=2 ;//заместо 2 буду функции, тут не имеет значения
end;
begin
for i := 0 to ListBox2.Count - 1 do                //обход всех строк в листе 
edit1.Text:=(ListBox2.items[ListBox2.itemindex]);
lb:=strtoint(edit1.text); 
m:=k*lb;//Не работает тут ( инт и стр вместе) не могу понять где упустил
ListBox5.Items.Add(inttostr(m)) ;//профит по строкам
end;

вабще возможно реализовать такое? что брал значение из строки листа и делать с ним что надо, а потом опять вносить в другой лист

народ ау где все умные?

[Valio]

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

народ ау где все умные?

Я так и не понял что ты хочешь.
Попробуй максимально полно, с примерами объяснить что тебе нужно.

[Mad_Cat]

for i := 0 to ListBox2.Count - 1 do begin               //обход всех строк в листе 
edit1.Text:=(ListBox2.items[i]);
lb:=strtoint(edit1.text); 
m:=k*lb;//m должно быть real
ListBox5.Items.Add(floattostr(m))
end;

[SonicBob]

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

Я так и не понял что ты хочешь.
Попробуй максимально полно, с примерами объяснить что тебе нужно.

да это моя проблема, знаю ) не умею я понятно объяснять
коту спасибо
что значит '359,5083' is not a valid integer value ?

[Sparkman]

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

да это моя проблема, знаю ) не умею я понятно объяснять
коту спасибо
что значит '359,5083' is not a valid integer value ?

точку вместо запятой необходимо поставить

[SonicBob]

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