Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.07.18;
Скачать: CL | DM;

Вниз

Работа со String переменными   Найти похожие ветки 

 
ZedeS ©   (2004-07-03 15:41) [0]

Необходимо строку 2-222 разделить на 2 и 222(кол-во цифр до и после "-" может быть любое). Делаю это так
s:="2-222";
s2:=StrScan(PChar(s),"-");
s1:=Copy(s,1,Length(s)-Length(s2));
s2:=Copy(s2,2,Length(s2)-1);

Мне кажется что это малость кривовато,как это сделать покрасивше?
Заранее спасибо!


 
GuAV ©   (2004-07-03 16:04) [1]

Я бы так делал, имхо покрасивше, хотя тоже кривовато.
s:="2-222";
I:=Pos("-",s);
SetString(s1,PChar(@s[1]),I-1);
SetString(s2,PChar(@s[I+1]),Length(S)-I);

Можно также через св-во DelimitedText TStringList"a


 
Cardinal ©   (2004-07-03 16:14) [2]

А я бы так:

var
 s,s1,s2: string;
 n: integer;
begin
s := "2-222";
n := pos("-",s);
s1 := copy(s,1,n-1);
s2 := copy(s,n+1,length(s)-n);



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

Текущий архив: 2004.07.18;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.061 c
4-1085999749
GuAV
2004-05-31 14:35
2004.07.18
Вставить в dialogtemplate форму.


4-1086243896
ikivio
2004-06-03 10:24
2004.07.18
Диалог выбора файла.


1-1089107451
Koala
2004-07-06 13:50
2004.07.18
Найти файл более ранней редакции


1-1088881672
killer
2004-07-03 23:07
2004.07.18
Transparent в RadioButton


14-1088359836
Red - Dragon
2004-06-27 22:10
2004.07.18
Проблема с иконкой в трее