Скачать: CL | DM;

Мастера подскажите! Нужно разделить строку 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

---

← →
Separator ©   (2002-09-27 07:13) [6]


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;

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.013 c