Главная страница
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.747 c
8-1090012783
кактусбел
2004-07-17 01:19
2004.10.10
Как загрузить в Тimage фаилы в форматах tif, png, gif


1-1096127610
Fagot
2004-09-25 19:53
2004.10.10
REG_BINARY


1-1096094700
Leaner
2004-09-25 10:45
2004.10.10
Контрольная сумма файла.


14-1095860037
Soft
2004-09-22 17:33
2004.10.10
HeatPC.com


8-1089821315
miek
2004-07-14 20:08
2004.10.10
GLScene, версия от 10.06.2004