Вниз
Скачать: CL | DM;

Вопрос про Max(Memo1.Lines.Values[i])   Найти похожие ветки 

 
vegarulez ©   (2008-03-30 14:38) [0]

Всем мастерам привет!
Вопрос таков - есть массив данных в тмемо
в виде:

1=a
2=b
3=c
4=d
...

Я обращаюсь к ним в цикле:

 

while i<Memo1.Lines.Count+1 do
  Begin
    Memo_nocomis.Lines.Count
   if Memo1.Lines.Values[inttostr(i)]<>"" then
    MyIniFile.WriteString("test",inttostr(i),Memo1.Lines.Values[inttostr(i)]);
   inc(i);
  End;


так вот собственно говоря вопрос - бывает так что допустим:

1=a

3=c
4=d

т.е. мне тогда надо всё записать в инишник как

1=a
2=c
3=d

а для этого нужно знать max i  в Memo1.Lines.Values[]..., чтобы потом правильно циклом добегать до последнего значения, при этом если нет промежуточного, то делать допустим  j:=i-1 и писать в инифайл под индексом j.

Поэтому вопрос как узнать max в  i  в Memo1.Lines.Values[]?


 
Palladin ©   (2008-03-30 15:18) [1]

Господи, какой только ерунды не пишут...


 
Сергей М. ©   (2008-03-30 15:28) [2]

Мож 03 позвониь ..


 
Сергей М. ©   (2008-03-30 15:33) [3]

Если "цирковой номер" состоит в "приспособе" strings а-ля ini, то точно к терапевту.


 
vegarulez ©   (2008-03-30 16:13) [4]

хм... а советы по существу..?


 
Andy BitOff ©   (2008-03-30 16:36) [5]

По твоему коду.

j := 1;
while i<Memo1.Lines.Count+1 do
 Begin
   Memo_nocomis.Lines.Count
  if Memo1.Lines.Values[inttostr(i)]<>"" then begin
   MyIniFile.WriteString("test",inttostr(j),Memo1.Lines.Values[inttostr(i)]);
   inc(j);
  end;
  inc(i);
 End;

А "max в i в Memo1.Lines.Values[]?" в этом понимании, это Memo1.Lines.Count + 1

А вообще х... занимаешься. Описал бы задачу, тебе бы подсказали более грамотное решение.


 
Andy BitOff ©   (2008-03-30 16:41) [6]

Хотя нет. Про твой max, это не так, вроде. Фиг поймешь, что ты хочешь.
Теперь я понял это как Memo1.Lines.Values[Memo1.Lines.Count - 1]
А ты уж понимай как хочешь.


 
Andy BitOff ©   (2008-03-30 16:42) [7]

И вообще меня запутал. Не + а - в Count. В общем учи матчасть.



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

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



Память: 0.46 MB
Время: 0.02 c
2-1206972240
jack128_
2008-03-31 18:04
2008.04.27
SQL запрос


15-1205209560
Logg
2008-03-11 07:26
2008.04.27
Техника перевода с Си на Паскаль


2-1206550287
SysError
2008-03-26 19:51
2008.04.27
как программно изменить цвет кисти в mspaint.exe


2-1206948837
IntruderLab
2008-03-31 11:33
2008.04.27
MDI форма


15-1205433311
Dr.Andrew
2008-03-13 21:35
2008.04.27
Ошибка при инсталляции Delphi 2007! Как исправить?




   Наверх