Мастера подскажите! Нужно разделить строку 55,44 на 55 на , и 44

← →
wer1 (2002-09-27 05:03) [0]

Мастера подскажите! Нужно разделить строку 55,44 на 55 на , и на 44 т.е выделить целую часть числа, запятую и дробную части и
записать их в отдельные строковые переменные например S1,S2,S3 но работая не как с числом а как со строкой.Данную задачу необходимо решить с максимальной эффективностью т.е применение циклов типа For J:=1 To Length(S) do
If S[J]=........ и ему подобных не пойдет .
Может есть функция Делфи, но лучше может кто знает как это реализовать на ассемблере и вставить в программу написанную на Делфи. Заранее спасибо всем кто ответит на мой вопрос.

← →
kerk (2002-09-27 05:28) [1]

Функции Pos, Copy, Length должны помочь...
(подробнее про этих функций можно узнать нажимая клавишу F1)

← →
wer1 (2002-09-27 06:03) [2]

Kerk cпасибо уже ближе к тому что нужно. Но может быть есть подпрограмма на ассемблере или по быстроте работы Pos,Copy сопоставимы с кодом на ассемблере?

← →
MBo © (2002-09-27 06:30) [3]

Для таких коротеньких строк Pos, Copy работают очень быстро.
можешь посмотреть также библиотеку QStrings

← →
wer1 (2002-09-27 06:43) [4]

А где можно взять данную библиотеку?

← →
MBo © (2002-09-27 07:01) [5]

может, torry.ru

procedure NumberToString(St: string; var S1, S2, S3: string); var L: integer; begin L:= Pos(DecimalSeparator, St); S1:= Copy(St, 1, L-1); S2:= Copy(St, L, 1); S3:= Copy(St, L+1, Length(St)-L) end;

← →
wer1 (2002-09-27 07:56) [7]

Всем спасибо.

← →
V-A-V (2002-09-27 08:15) [8]

Можно еще попробовать функцию Token из
модуля strTools который я ложил в кладовку...

... var s, s1, s2: String; begin s:= "44,55"; s1:= Token(s, ",", 1); s2:= Token(s, ",", 2); end;

Мастера подскажите! Нужно разделить строку 55,44 на 55 на , и 44 Найти похожие ветки