Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.10.10;
Скачать: CL | DM;

Вниз

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;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.027 c
14-1095437436
olookin
2004-09-17 20:10
2004.10.10
коли делать нечего...


1-1095586738
appendix
2004-09-19 13:38
2004.10.10
выравнивание в текстовом файле


1-1095915518
kukuikar
2004-09-23 08:58
2004.10.10
MD5: похоже на правду?


3-1094984552
Morrison
2004-09-12 14:22
2004.10.10
Cannot focuse a disabled or invisible window


14-1095670737
Rule
2004-09-20 12:58
2004.10.10
Неужели в москве такие зарплаты ????