Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Мастера подскажите! Нужно разделить строку 55,44 на 55 на , и 44 [D5, Win95/98]

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

V-A-V (2002-09-27 08:15:00) [1]
Можно еще попробовать функцию Token из
модуля strTools который я ложил в кладовку...

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

wer1 (2002-09-27 07:56:00) [2]
Всем спасибо.

Separator (2002-09-27 07:13:00) [3]
procedureNumberToString(St: string; varS1, 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;

MBo (2002-09-27 07:01:00) [4]
может, torry.ru

wer1 (2002-09-27 06:43:00) [5]
А где можно взять данную библиотеку?

MBo (2002-09-27 06:30:00) [6]
Для таких коротеньких строк Pos, Copy работают очень быстро.
можешь посмотреть также библиотеку QStrings

wer1 (2002-09-27 06:03:00) [7]
Kerk cпасибо уже ближе к тому что нужно. Но может быть есть подпрограмма на ассемблере или по быстроте работы Pos,Copy сопоставимы с кодом на ассемблере?

kerk (2002-09-27 05:28:00) [8]
Функции Pos, Copy, Length должны помочь...
(подробнее про этих функций можно узнать нажимая клавишу F1)

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »