Как ввести в Edit интервал?

[Котакот]

Вообщем, мне нужно вводить в Edit интервал вида 100-200. Каким образом можно считывать число до "-" и после и присваивать их разным переменным?

[Sazary]

Ну как-нибудь так:

procedure TForm1.Button1Click(Sender: TObject);
var s : string;
a,b,k : integer;
begin
s := Edit1.Text; // в s копируем содержимое эдита
k := pos('-',s);    // находим позицию дефиса
a := StrToInt(copy(s,1,k-1));  // в a кладем все, что до черточки (конвертнув в число)
b := StrToInt(copy(s,k+1,length(s)));  // в b - все, что после
ShowMessage('a= '+IntToStr(a)+'  b= '+IntToStr(b));  // показываем
end;

[Котакот]

Программа будет работать? Меня смущает то, что s строковое, а k уже integer...

[Ntlegend]

определяем позицыю черточки "-" потом в переменную а копируес все шо до чорточки в а переменную б копируем то шо после нее.. и заодно при копировании переводим со строки в число..

[Sazary]

Добавил в листинг.

Собственно, Ntlegend уже все описал..

Сообщение от Котакот

Программа будет работать? Меня смущает то, что s строковое, а k уже integer...

А вы запустите и проверьте!

[Ntlegend]

еще один метод:

procedure TForm1.Button1Click(Sender: TObject);
var l : TStrings;
    a,b : integer;
begin
l:=TStrongList.Create;
l.Text := Edit1.Text; // копируем содержимое эдита
l.Text := StringReplace(l.Text, '-', #13#10, [rfReplaceAll]);//заменяем дефис на перенос строки
a := StrToInt(l.Strings[0]);  // первая строка - это число а
b := StrToInt(l.Strings[0]);  // вторая - b..
ShowMessage('a= '+IntToStr(a)+'  b= '+IntToStr(b));  // показываем
l.Free//освобождаем переменную
end;