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

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

255\0\16 - как разобрать? [D7, Win95/98, WinME, NT4, Win2k, WinXP]

Никита ©   (2004-09-27 06:40:00) 

Даны три integer значения. Дана строка в которой три числа перечислены через символ "\". Как разобрать эту строку на integer значения?

---

КаПиБаРа   (2004-09-27 07:48:00) [1]

Никита ©   (27.09.04 6:40)
F1 - Pos, Copy, Delete, StrToInt

===============================================
Пришла нужда стучать по дереву - обнаруживаешь,
что мир состоит из алюминия и пластика.
===============================================


---

Palladin   (2004-09-27 07:23:00) [2]


function GetSubStr(sStr,sSep:string;n:integer):string;
var
i:integer;
begin
result:='';
for i:=1 to n-1 do
 sStr:=copy(sStr,pos(sSep,sStr)+length(sSep),length(sStr));
if pos(sSep,sStr)<>0
 then result:=copy(sStr,1,pos(sSep,sStr)-1)
 else result:=sStr;
end;


---

Fedia   (2004-09-27 06:51:00) [3]


function  FieldS(Number: word; Delimiter: Char; Source: String): String;
var
j,i: Longword;
s1: string;
begin
if Source='' then begin
 Result:='';
 Exit;
end;
j:=1;
s1:='';
for i:=1 to Length(Source)do begin
 if Source[i]=Delimiter then inc(j);
 if (j=Number)and(Source[i]<>Delimiter) then s1:=s1+Source[i];
 if (j<>Number)and(s1<>'') then Break;
end;
Result:=s1;
end;

 First:=StrToInt(FieldS(1, '\',  '255\0\16'))
 Second:=StrToInt(FieldS(2, '\',  '255\0\16')) и т.д.

---

Наверх