Работа со 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

А я бы так:
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);

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