Скачать: 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 вся ветка

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



Память: 0.45 MB
Время: 0.036 c