[Elza]

Приветик всем! у меня такая проблемка

в проекте есть такой код

if Memo1.Lines.Values[Login] = '' then
begin
Memo1.Lines.Values[Login] := edit1;
LastMess := mMess.Lines.Count;
end;

Как изменить код, чтобы использовать не Memo а ListBox

Пасибки!

[AND_REY]

Так наверное:

Код:

if ListBox1.Items.Values[Login] = '' then
begin
ListBox1.Items.Values[Login] := edit1;
LastMess := mMess.Lines.Count;
end;

[Elza]

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

Так наверное:

Код:

if ListBox1.Items.Values[Login] = '' then
begin
ListBox1.Items.Values[Login] := edit1;
LastMess := mMess.Lines.Count;
end;

нет! там подругому. тк слово Values красным выделяет

[Electronic_Arts]

Всё правильно написано просто забыли ' '

Код:

if ListBox1.Items.Values['Login'] = '' then
begin
ListBox1.Items.Values['Login'] := edit1;
LastMess := mMess.Lines.Count;
end;

[~TB~]

Electronic_Arts, а если Login это строковая переменная\константа?

Раз по какой-то странной причине совет AND_REY не помог (хз, у меня все работает), попробуйте так:

Код:

var
 sl: TStringList;

begin
 sl:=TStringList.Create;
 sl.SetText(ListBox1.Items.GetText);
 if sl.Values[Login] = '' then
 begin
 sl.Values[Login] := edit1;
 ListBox1.Items.SetText(sl.GetText);
 LastMess := mMess.Lines.Count;
 end;
 FreeAndNil(sl);
end;

Дикое извращение конечно.