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

Вниз

Координаты   Найти похожие ветки 

 
Ivolg   (2004-08-06 18:04) [0]

Здраствуйте. У меня имеются координаты мышки 400*400 Как можно из
такой строчки: 400:400 извлечь координаты: 400 и 400? Спасибо!!!


 
Ega23 ©   (2004-08-06 18:06) [1]

ExtractDelimited?


 
Ivolg   (2004-08-06 18:09) [2]

Чёто  не помогло, вообще левая функция.


 
Digitman ©   (2004-08-06 18:12) [3]


> Ivolg


см. ф-ции Pos(), Copy(), StrToInt()


 
Ega23 ©   (2004-08-06 18:13) [4]

Ну тогда вот:


//------------ Переводит строку с разделителями в Лист (Tstrings)
Function DelimitedStrToList(sIn:string; Strs:Tstrings;delims:TCharSet):integer;
var i:integer;
   s0,s1:string;
   ch:char;
begin
 if sIn="" then Exit;
 strs.Clear;
 s0:=sIn;
 for i:=0 to 255 do   //repl ;; =>; ;
 begin
  ch:=chr(i);
   if ch in Delims then s0:=ReplaceStr(S0,ch+ch, ch+" "+ch);
 end;
 i:=1;
 while true do
 begin
  s1:=ExtractWord(i,s0,delims);
   if s1="" then break;
  strs.add(s1);
  inc(i);
 end;
result:=strs.Count;
end;
//------------ Переводит Лист (Tstrings) в строку с разделителями
Function ListToDelimitedStr( Strs:Tstrings;delim:Char=";"):string;
var i:integer;
   ss:string;
begin
result:="";
ss:="";
if strs.Count=0 then exit;
  for i:=0 to strs.Count-1 do ss:=ss+strs.Strings[i]+delim;
 if ss[length(ss)]=delim then delete(ss,length(ss),1);
result:=ss;
end;



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

Текущий архив: 2004.08.22;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.022 c
14-1091710708
Ш-К
2004-08-05 16:58
2004.08.22
Пишу макрос


14-1091624567
by
2004-08-04 17:02
2004.08.22
Методики разработки ПО


1-1091796158
MacroDenS
2004-08-06 16:42
2004.08.22
Edit и буфер обмена...


4-1089124563
Buster
2004-07-06 18:36
2004.08.22
Как открыть стандартную панельку со свойствами файла-директории?


3-1091035902
senderw
2004-07-28 21:31
2004.08.22
как удалить удаленные записи из таблицы