Главная страница
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.022 c
3-1094733630
Алексей
2004-09-09 16:40
2004.10.10
ADO,FOX: файл уже используется???


4-1094709448
RagE
2004-09-09 09:57
2004.10.10
Загрузчик PE из памяти, специально для тех кто не верит


14-1093725767
Marser
2004-08-29 00:42
2004.10.10
Вопрос спортсменам


14-1095630775
Knight
2004-09-20 01:52
2004.10.10
Бортовой "компьютер" БК-06...


1-1096054382
tormoz
2004-09-24 23:33
2004.10.10
Фокус ввода