| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Работа со String переменными [D6]

ZedeS ©   (2004-07-03 15:41:00) 

Необходимо строку 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);
Мне кажется что это малость кривовато,как это сделать покрасивше?
Заранее спасибо!

---

Cardinal   (2004-07-03 16:14:00) [1]

А я бы так:

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);


---

GuAV   (2004-07-03 16:04:00) [2]

Я бы так делал, имхо покрасивше, хотя тоже кривовато.
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

---

Наверх