Форум: "Основная";
Текущий архив: 2002.10.07;
Скачать: [xml.tar.bz2];
ВнизМастера подскажите! Нужно разделить строку 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 вся ветка
Форум: "Основная";
Текущий архив: 2002.10.07;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.009 c