dblistbox

[ffabio]

Salve ragazzi sono sempre io il rompiscatole . 

Nella mia applicazione volevo creare una mascera per selezionare delle opzioni presenti in una tabella del db. . I nomi dei miei amici . mi sono creato una tabella amici con id e nome_amico.


Quindi ho messo una tsqlquery con campo sql select id,nome_amico from amici .

una tdatasource  e 2 dblistbox una a sx e una a dx. in mezzo due bottoni uno ->  e l' altro <-

La mia idea era caricare una list box selezionare un item  e con il bottone -> portarlo nella listbox affianco. al contrario la seleziono a dx e lo rimando nella listbox di sx

1) non mi carica i valori nella dblistbox .
2) non ho proprio idea di come spostare i valori da una all' altra listbox



idee

grazie.

[nomorelogic]

1) non mi carica i valori nella dblistbox .

giusto per essere sicuri, da qualche parte (es: OnCreate della form) c'è la open dell'sql?

2) non ho proprio idea di come spostare i valori da una all' altra listbox

di solito, quando si tratta di operare una selezione, la listbox degli elementi selezionati non è una dblistbox ma una semplice listbox.

comunque:

a) se si tratta di dblistbox, basta inserire un record nella tabella collegata

b) se invece è una listbox, occorre qualcosa tipo:

Codice: [Seleziona]

ListBox2.Items.Add( ListBox1.Item[ListBox1.ItemIndex] );

da mettere nell'evento onclick di un bottone

[ffabio]

grazie ho messo tsqlquery  e popolo una listbox come hai detto tu.

:-)

e per eliminare un valore dalla listbox sai come si fa


grazie mille . sono proprio alle prime armi .

[nomorelogic]

potresti andare a mettere un filtro sul tsqlquery ma non mi pare una gran cosa, anzi lo eviterei

credo ti toccherà mettere 2 tlistbox semplici ed eliminare quello da spostare tipo:

Codice: [Seleziona]

ListBox2.Items.Add( ListBox1.Item[ListBox1.ItemIndex] );
ListBox1.Delete(ListBox1.ItemIndex);

[ffabio]

Si grazie ho fatto così :

procedure TGestione_ricerche.Button13Click(Sender: TObject);
var
   index : integer ;
begin

index   := ListBox4.ItemIndex;
Listbox1.Items.Add(ListBox2.Items[index]);
Listbox2.items.delete(index);
end;

e funziona. ma se volessi mantenere l'ordinamento alfabetico hai qualche idea??
altrimenti me lo agginge sempre in fondo .

 

 

[ffabio]

Trovato bastava mettere sorted a true :-)

[ffabio]

esistono listbox a due colonne ?

nella prima metto id e nell'altra la descizione

grazie

[nomorelogic]

non mi risulta, però ci sono le StringGrid che hanno quante colonne ti pare

[ffabio]

e funzionano allo stesso modo ?

[nomorelogic]

non proprio, li ci sono righe e colonne da gestire
se vuoi continuare con le listbox puoi inserire il contenuto formattandolo

ad esempio:

Codice: [Seleziona]

ListBox1.Items.Add('[1234] Paolo Rossi');

in questo modo quando hai bisogno del codice lo estrai tranquillamente ed in più ti mantieni una gestione semplice

[xinyiman]

Puoi usare una stringrid con i seguenti parametri

ColCount: 1
FixedCols: 0
FixedRows: 0
AutoEdit: false
GridLineWidth: 0

Così graficamente è uguale ad una listbox, solo che la gestisci come se fosse una stringgrid. Ergo puoi avere più colonne (anche nascoste) per contenere le varie chiavi!

[ffabio]

Si è vero xinyiman,sono uguali  magari se riesco mi costruisco un oggetto con i tasti per spostarle.
Appena ho tempo vedo cosa riesco a fare.

Per ora continuo con le list box prendendo il suggerimento di nomorelogic .

Devo solo capire a come beccarmi il numero tra le quadre. idee ?? devo scorrermi tutta la stringa ho esiste qualche mega funzione

grazie a tutti

[nomorelogic]

usa la pos
http://lazarus-ccr.sourceforge.net/docs/rtl/system/pos.html

prima cerchi la posizione di '[' e poi quella di ']'
ottenuto inizio e fine... usi la copy
http://lazarus-ccr.sourceforge.net/docs/rtl/system/copy.html