Форум: "Основная";
Текущий архив: 2004.10.10;
Скачать: [xml.tar.bz2];

Вниз

255 0 16 - как разобрать?   Найти похожие ветки 

← →
Никита ©   (2004-09-27 06:40) [0]

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

---

← →
Fedia   (2004-09-27 06:51) [1]


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")) и т.д.

---

← →
Palladin ©   (2004-09-27 07:23) [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;


---

← →
КаПиБаРа ©   (2004-09-27 07:48) [3]

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

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


---

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

Форум: "Основная";
Текущий архив: 2004.10.10;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.44 MB
Время: 0.032 c