[Alloc]

Приветствую!

Ребята, скажите как из строки такого типа: "255,155,155" вытащить каждое из трех значений в переменную?

[NumLock]

Copy() с позициями групп чисел. Подходит при постоянной длине исходной строки.

[Oleg.E]

Если строка всегда по одному шаблону,то

Код:

var
S,S1,S2,S3:String;
begin
  S:='255,255,255';
  S1:=Copy(S,1,3);
  S2:=Copy(S,4,3);
  S3:=Copy(S,9,3);
end;

[Alloc]

Сообщение от Oleg.E

Если строка всегда по одному шаблону,то

Код:

var
S,S1,S2,S3:String;
begin
  S:='255,255,255';
  S1:=Copy(S,1,3);
  S2:=Copy(S,4,3);
  S3:=Copy(S,9,3);
end;

Дело в том, что значения могут быть и такого типа: 10,122,255.. поэтому нужно как то смотреть по запятым, но вот я не знаю как. Вообще это у меня цвет в RGB который я буду сохранять и загружать в/из ini файла

[Verevkin]

Сообщение от Alloc

Дело в том, что значения могут быть и такого типа: 10,122,255.. поэтому нужно как то смотреть по запятым, но вот я не знаю как. Вообще это у меня цвет в RGB который я буду сохранять и загружать в/из ini файла

большая ссылка

[icWasya]

как-то так

Код:

var
  S:String;
  S1,S2,S3:String;
  p:Integer;
begin
  S:='1,15,255';
  p:=pos(',',S);
  S1:=copy(S,1,p-1);
  S:=copy(S,P+1,100);//100-заведомо большое число
  S2:=Copy(S,1,p-1);
  S3:=Copy(S,p+1,100);
end;

[Alegun]

Можно ещё средствами строкового списка

Код:

var
 dt: array of byte;
 sl: TStrings;
 i: integer;
begin
 Memo1.Clear;
 sl:= TStringList.Create;
 sl.DelimitedText:= '10,122, 255,243 1,5,62';
 SetLength(dt, sl.Count);
 for i := Low(dt) to High(dt) do
  dt[i]:= StrToInt(sl[i]);
 sl.Free;
end;