* * * *

Privacy Policy

Blog italiano

Clicca qui se vuoi andare al blog italiano su Lazarus e il pascal.

Forum ufficiale

Se non siete riusciti a reperire l'informazione che cercavate nei nostri articoli o sul nostro forum vi consiglio di visitare il
Forum ufficiale di Lazarus in lingua inglese.

Lazarus 1.0

Trascinare un file nel programma
DB concetti fondamentali e ZeosLib
Recuperare codice HTML da pagina web
Mandare mail con Lazarus
Stabilire il sistema operativo
Esempio lista in pascal
File INI
Codice di attivazione
Realizzare programmi multilingua
Lavorare con le directory
Utilizzare Unità esterne
TTreeView
TTreeview e Menu
Generare controlli RUN-TIME
LazReport, PDF ed immagini
Intercettare tasti premuti
Ampliare Lazarus
Lazarus e la crittografia
System Tray con Lazarus
UIB: Unified Interbase
Il file: questo sconosciuto
Conferma di chiusura di un applicazione
Liste e puntatori
Overload di funzioni
Funzioni a parametri variabili
Proprietà
Conversione numerica
TImage su Form e Panel
Indy gestiore server FTP lato Client
PopUpMenu sotto Pulsante (TSpeedButton)
Direttiva $macro
Toolbar
Evidenziare voci TreeView
Visualizzare un file Html esterno
StatusBar - aggirare l'errore variabile duplicata
Da DataSource a Excel
Le permutazioni
Brute force
Indy 10 - Invio email con allegati
La gestione degli errori in Lazarus
Pascal Script
Linux + Zeos + Firebird
Dataset virtuale
Overload di operatori
Lavorare con file in formato JSON con Lazarus
Zeos ... dietro le quinte (prima parte)
Disporre le finestre in un blocco unico (come Delphi)
Aspetto retrò (Cmd Line)
Lazarus 1.0
Come interfacciare periferica twain
Ubuntu - aggiornare free pascal e lazarus
fpcup: installazioni parallele di lazarus e fpc
Free Pascal e Lazarus sul Raspberry Pi
Cifratura: breve guida all'uso dell'algoritmo BlowFish con lazarus e free pascal.
Creare un server multithread
guida all'installazione di fpc trunk da subversion in linux gentoo
Indice
DB concetti fondamentali e connessioni standard
Advanced Record Syntax
DB concetti fondamentali e DBGrid
DB concetti fondamentali e TDBEdit, TDBMemo e TDBText
Advanced Record Syntax: un esempio pratico
Superclasse form base per programmi gestionali (e non)
Superclasse form base per programmi gestionali (e non) #2 - log, exception call stack, application toolbox
Superclasse form base per programmi gestionali (e non) #3 - traduzione delle form
Superclasse form base per programmi gestionali (e non) #4 - wait animation
Un dialog per la connessione al database:TfmSimpleDbConnectionDialog
Installare lazarus su mac osx sierra
immagine docker per lavorare con lazarus e free pascal
TDD o Test-Driven Development
Benvenuto! Effettua l'accesso oppure registrati.
Aprile 18, 2024, 02:07:27 am

Inserisci il nome utente, la password e la durata della sessione.

186 Visitatori, 0 Utenti

Autore Topic: convertire ansistring in string  (Letto 5735 volte)

gianpa

  • Full Member
  • ***
  • Post: 180
  • Karma: +0/-0
convertire ansistring in string
« il: Gennaio 31, 2013, 04:45:18 pm »
ciao ragazzi , volevo cambiare il nome di una tabella a runtime per poter caricare dati diversi senza uscire dal programma e ho fatto così :

SQLQuery1.SQL.text:=combobox1.Items;

dove in items ho sctitto 'select * from tabella1'
e 'select * from tabella2'
in modo da selezionare la tabella dal combobox1 ,ma probabilmente non è così semplice visto che mi dice che sono stringhe incompatibili !

aiutatemi voi !!!!!!!!!!!

xinyiman

  • Administrator
  • Hero Member
  • *****
  • Post: 3249
  • Karma: +12/-0
Re:convertire ansistring in string
« Risposta #1 il: Gennaio 31, 2013, 09:21:11 pm »
Hai provato con il cast?! Tipo

SQLQuery1.SQL.text:=String(combobox1.Items);

Fammi sapere se funziona
Ieri è passato, domani è futuro, oggi è un dono...

Stilgar

  • Global Moderator
  • Hero Member
  • *****
  • Post: 2382
  • Karma: +10/-0
Re:convertire ansistring in string
« Risposta #2 il: Febbraio 01, 2013, 11:14:53 am »
We, ma che consigli dai ...
Codice: [Seleziona]
public property TCustomComboBox.ItemIndex: Integer
Codice: [Seleziona]
public property TCustomComboBox.Items: TStrings

Usa l'indice per sapere quale delle N ipotesi (Items della combo) è stata selezionata.

Stilgar
Al mondo ci sono 10 tipi di persone ... chi capisce il binario e chi no.

xinyiman

  • Administrator
  • Hero Member
  • *****
  • Post: 3249
  • Karma: +12/-0
Re:convertire ansistring in string
« Risposta #3 il: Febbraio 01, 2013, 02:40:14 pm »
We, ma che consigli dai ...
Codice: [Seleziona]
public property TCustomComboBox.ItemIndex: Integer
Codice: [Seleziona]
public property TCustomComboBox.Items: TStrings

Usa l'indice per sapere quale delle N ipotesi (Items della combo) è stata selezionata.

Stilgar

Hai ragione quando ho risposto ero davvero rincoglionito. Chiedo scusa...
Ieri è passato, domani è futuro, oggi è un dono...

Stilgar

  • Global Moderator
  • Hero Member
  • *****
  • Post: 2382
  • Karma: +10/-0
Re:convertire ansistring in string
« Risposta #4 il: Febbraio 01, 2013, 03:05:03 pm »
hahaha.
Nessun problema ;)
Al mondo ci sono 10 tipi di persone ... chi capisce il binario e chi no.

gianpa

  • Full Member
  • ***
  • Post: 180
  • Karma: +0/-0
Re:convertire ansistring in string
« Risposta #5 il: Febbraio 01, 2013, 10:23:35 pm »
ho cercato di orientarmi ,ma ho incontrato qualche difficoltà!
TcustomComboBox lo devo creare ? o è solo il nome che dai al combobox1 del mio esempio?
un oggetto TcustomCombobox altrimenti non lo trovo nella palette!

ciao
e grazie per la pazienza!!!

nomorelogic

  • Global Moderator
  • Hero Member
  • *****
  • Post: 2870
  • Karma: +20/-4
Re:convertire ansistring in string
« Risposta #6 il: Febbraio 02, 2013, 08:52:44 am »
Quando il nome di una classe inizia per TCustom vuol dire che è una superclasse ovvero una classe (molto spesso astratta) dalla quale si fanno derivare le classi che si devono usare.
Nella palette non troverai mai una superclasse di questo tipo perchè non è utilizzabile e non ha neanche senso crearla a runtime, se non per ereditarla.

Se guardi in questo link http://lazarus-ccr.sourceforge.net/docs/lcl/stdctrls/tcombobox.html, scorrendo in basso, trovi l'albero con tutte le superclassi di TComboBox fino ad arrivare a TObject che è la superclasse dalla quale tutte le altre derivano.

Quindi quando ci si riferisce a TCustomComboBox.Items ci si riferisce alla proprietà Items che tutte le classi derivate da TCustomComboBox devono avere.

E' chiaro che tu devi fare riferimento a TComboBox.Items. ;)
« Ultima modifica: Febbraio 02, 2013, 08:54:15 am da nomorelogic »
Imagination is more important than knowledge (A.Einstein)

Stilgar

  • Global Moderator
  • Hero Member
  • *****
  • Post: 2382
  • Karma: +10/-0
Re:convertire ansistring in string
« Risposta #7 il: Febbraio 02, 2013, 01:32:38 pm »
Ops.... io ho preso la documentazione, non ho fatto caso a quale padre le dichiarava.
Scusate per la disattenzione.

Stilgar
Al mondo ci sono 10 tipi di persone ... chi capisce il binario e chi no.

gianpa

  • Full Member
  • ***
  • Post: 180
  • Karma: +0/-0
Re:convertire ansistring in string
« Risposta #8 il: Febbraio 03, 2013, 01:37:15 pm »
ho provato ,ma ritrovo lo stesso errore ! forse ricado nello stesso modo di pensare !!! ora riprovo dal tuo suggerimento dell'indice anche se poi il problema resta la compatibilità delle stringhe quando voglio assegnare un valore(stringa) alla proprietà sql ... non è che puoi postare un esempio su come faresti tu ?
CIAO e GRAZIE !!!


nomorelogic

  • Global Moderator
  • Hero Member
  • *****
  • Post: 2870
  • Karma: +20/-4
Re:convertire ansistring in string
« Risposta #9 il: Febbraio 03, 2013, 03:21:21 pm »
se non ricordo male:

Codice: [Seleziona]
SQLQuery1.SQL.text := combobox1.Items[combobox1.ItemIndex];
Imagination is more important than knowledge (A.Einstein)

gianpa

  • Full Member
  • ***
  • Post: 180
  • Karma: +0/-0
Re:convertire ansistring in string
« Risposta #10 il: Febbraio 04, 2013, 07:04:52 pm »
grazie ! questa parte ora funziona !

ciao

 

Recenti

How To

Utenti
  • Utenti in totale: 785
  • Latest: gmax
Stats
  • Post in totale: 18769
  • Topic in totale: 2232
  • Online Today: 188
  • Online Ever: 900
  • (Gennaio 21, 2020, 08:17:49 pm)
Utenti Online
Users: 0
Guests: 186
Total: 186

Disclaimer:

Questo blog non rappresenta una testata giornalistica poiché viene aggiornato senza alcuna periodicità. Non può pertanto considerarsi un prodotto editoriale ai sensi della legge n. 62/2001.