Вопрос про 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

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

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

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

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