Скачать: CL | DM;

Пробелы задолбали   Найти похожие ветки 

← →
GeoShot ©   (2009-10-06 17:09) [0]

Добрый день, подскажите: считываю с Memo с заданного диапазона позиций значение в переменную integer, бывает что весь диапазон заполнен пробелами.

---

← →
GeoShot ©   (2009-10-06 17:12) [1]

for i:=stLine to enLine do
   begin
      CDP[k] :=Copy(Memo1.Lines[i-1],StrToInt(StringGrid1.Cells[1,1]),StrToInt(StringGrid1.Cells[3,1]));  
      Time[k]:=Copy(Memo1.Lines[i-1],StrToInt(StringGrid1.Cells[1,2]),StrToInt(StringGrid1.Cells[3,2]));  
      Vel[k] :=Copy(Memo1.Lines[i-1],StrToInt(StringGrid1.Cells[1,3]),StrToInt(StringGrid1.Cells[3,3]));  

      ICDTV[k,0]:=StrToInt(CDP[k]);
      ICDTV[k,1]:=StrToInt(Time[k]);
      ICDTV[k,2]:=StrToInt(Vel[k]);
      k:=k+1;

   end;

---

← →
faiwer ©   (2009-10-06 17:13) [2]

А по русски? у тя есть мемо в которой цифры и пустота, ты считываешь с нужного места текст в надежде получить оттуда int но иногда там просто пробелы?

ну дык считывай их в строку, а из строки вручную выцеживай число.

---

← →
GeoShot ©   (2009-10-06 17:15) [3]

Да я вроде так и делаю CDP[k] - строковый масив, а ICDTV[k,0] - целочисленный

---

← →
GeoShot ©   (2009-10-06 17:16) [4]

по сути мне надо заменить 5пробелов в 0

---

← →
faiwer ©   (2009-10-06 17:33) [5]

s:= ...; // string
ss:="";
for t:=1 to length(s) do
if s[t] in ("0".."9") then ss:=ss+s[t];
if ss="" then value:=0 else value:=inttostr(ss);

чтото вроде этого сгодится? )

---

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

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.009 c