![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Вопрос про Max(Memo1.Lines.Values[i]) [D7, XP]
vegarulez © (2008-03-30 14:38:00)Всем мастерам привет!
Вопрос таков - есть массив данных в тмемо
в виде:
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[]?
Andy BitOff (2008-03-30 16:42:00) [1]И вообще меня запутал. Не + а - в Count. В общем учи матчасть.
Andy BitOff (2008-03-30 16:41:00) [2]Хотя нет. Про твой max, это не так, вроде. Фиг поймешь, что ты хочешь.
Теперь я понял это как Memo1.Lines.Values[Memo1.Lines.Count - 1]
А ты уж понимай как хочешь.
Andy BitOff (2008-03-30 16:36:00) [3]По твоему коду.
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
А вообще х... занимаешься. Описал бы задачу, тебе бы подсказали более грамотное решение.
vegarulez (2008-03-30 16:13:00) [4]хм... а советы по существу..?
Сергей М. (2008-03-30 15:33:00) [5]Если "цирковой номер" состоит в "приспособе" strings а-ля ini, то точно к терапевту.
Сергей М. (2008-03-30 15:28:00) [6]Мож 03 позвониь ..
Palladin (2008-03-30 15:18:00) [7]Господи, какой только ерунды не пишут...