copy elements of column to listbox

← →
namco (2009-03-02 11:56) [0]

Здраствуйте
как мне копировать все елементы столбца в Listbox.
Спасибо

← →
Ega23 © (2009-03-02 12:04) [1]

в цикле?

← →
namco (2009-03-02 12:14) [2]

а можно подробнее
код плз

← →
brother © (2009-03-02 12:15) [3]

столбец где?
или
скопировать куда?

← →
Ega23 © (2009-03-02 12:15) [4]

> а можно подробнее

нет

← →
Медвежонок Пятачок © (2009-03-02 12:21) [5]

listbox.items.addstrings

← →
namco (2009-03-02 12:29) [6]

есть таблица такая

no name age
1 tom 12
2 joe 25
3 jane 32
...

как скопировать все елементы столбца name в listbox

← →
clickmaker © (2009-03-02 12:31) [7]

> [6] namco (02.03.09 12:29)
> есть таблица такая

офигеть. И что?

← →
Palladin © (2009-03-02 12:32) [8]

в цикле

← →
brother © (2009-03-02 12:33) [9]

ппц. ну в цикле или через for...

← →
Palladin © (2009-03-02 12:34) [10]

самое главное понять, как персонажЬ связывает TListBox и Access

← →
MsGuns © (2009-03-02 12:38) [11]

procedure Form1.CopyDSFieldsToList(DS: TDataSet; FldName: string; List: TStrings);
var
bm : TBookMark;

begin
List.Clear;
with DS do
begin
DisableControls;
bm := GetBookMark;
First;
while not Eof do
begin
ListBox1.Add(FielsByName("FldName").AsString);
Next;
end;
GoToBookMark(bm);
FreeBookMark(bm);
EnableControls;
end;
end;

Использование:

CopyDSFieldsToList(Table1, "Name", ListBox1.Items);

← →
MsGuns © (2009-03-02 12:40) [12]

Очепятка
Надо List.Add(FieldByName("FldName").AsString);

← →
brother © (2009-03-02 12:43) [13]

> самое главное понять, как персонажЬ связывает TListBox и
> Access

а про него в сабже ничего не сказано...

> MsGuns © (02.03.09 12:38) [11]

Вот у тебя твой DS.IsEmpty.
И кирдык.
К вопросу о надобности try..finally
DisableContriols; try .... finally EnableControls; end;

>Ega23 © (02.03.09 12:48) [14]

Ну да, ты мне еще расскажи, что поля FldName может не быть в датасете, датасет может быть не открыт, может быть однонаправленным и т.д.

:)

> Ну да, ты мне еще расскажи, что поля FldName может не быть
> в датасете, датасет может быть не открыт

Почему. Открыт. Но - пустой. Разве редкая ситуация?
Хотя, по-хорошему - проверять всё внутри функции. Иначе вообще нафиг она нужна, можно всё время копи-пастом код переставлять.

> MsGuns (02.03.2009 12:52:15) [15]

Ты точно этого хочешь?

>Ega23 © (02.03.09 12:56) [16]
>Почему. Открыт. Но - пустой. Разве редкая ситуация?

Ну если исходить из того, что выкладываемый код должен быть прилизан и отлажен, иначе нечего его выкладывать, то согласен.
Уговорил :)

> Ну если исходить из того, что выкладываемый код должен быть
> прилизан и отлажен, иначе нечего его выкладывать, то согласен.
>
> Уговорил :)

Дело не в этом. Если ты EnableControls в finally не поместишь, то любой exception между DisableControls и EnableControls поставит в коленно-локтевую позицию все визуальные компоненты, связанные с этим DataSet-ом. Сам exception - дело житейское, хоть и не очень приятное. Но последствия в твоём случае - весьма хреновые.

copy elements of column to listbox Найти похожие ветки