Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

copy elements of column to listbox [D7, access]

namco © (2009-03-02 11:56:00)
Здраствуйте
как мне копировать все елементы столбца в Listbox.
Спасибо

Ega23 (2009-03-02 13:09:00) [1]

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

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

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

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

Anatoly Podgoretsky (2009-03-02 12:56:00) [3]
> MsGuns (02.03.2009 12:52:15) [15]

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

Ega23 (2009-03-02 12:56:00) [4]

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

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

MsGuns (2009-03-02 12:52:00) [5]
>Ega23 © (02.03.09 12:48) [14]

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

:)

Ega23 (2009-03-02 12:48:00) [6]

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

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

brother (2009-03-02 12:43:00) [7]
> самое главное понять, как персонажЬ связывает TListBox и
> Access

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

MsGuns (2009-03-02 12:40:00) [8]
Очепятка
Надо List.Add(FieldByName('FldName').AsString);

MsGuns (2009-03-02 12:38:00) [9]
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);

Palladin (2009-03-02 12:34:00) [10]
самое главное понять, как персонажЬ связывает TListBox и Access

brother (2009-03-02 12:33:00) [11]
ппц. ну в цикле или через for...

Palladin (2009-03-02 12:32:00) [12]
в цикле

clickmaker (2009-03-02 12:31:00) [13]
> [6] namco (02.03.09 12:29)
> есть таблица такая

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

namco (2009-03-02 12:29:00) [14]
есть таблица такая

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

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

Медвежонок Пятачок (2009-03-02 12:21:00) [15]
listbox.items.addstrings

Ega23 (2009-03-02 12:15:00) [16]

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

нет

brother (2009-03-02 12:15:00) [17]
столбец где?
или
скопировать куда?

namco (2009-03-02 12:14:00) [18]
а можно подробнее
код плз

Ega23 (2009-03-02 12:04:00) [19]
в цикле?

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »