Italian community of Lazarus and Free Pascal

Programmazione => Generale => Topic aperto da: mecoman - Marzo 25, 2015, 04:22:15 pm

Titolo: Problema TEdit
Inserito da: mecoman - Marzo 25, 2015, 04:22:15 pm
Ciao a tutti.
Vorrei chiedere il vostro aiuto per una TEdit.
In un form ho tre TEdit ed un bottone. Quando clicco il bottone vorrei che il testo delle due  TEdit si unissero. Il codice che ho scritto è il seguente:
Codice: [Seleziona]
procedure TForm1.Button1Click(Sender: TObject);
begin
  Edit3.Text:= Edit1.Text + Edit2.Text;
end;

La domanda che mi pongo e che pongo a voi è la seguente: se volessi copiare nella TEdit3 solo una parte di testo della TEdit1 (ad esempio Casa), come faccio?

Ciao :)
Titolo: Re:Problema TEdit
Inserito da: nomorelogic - Marzo 25, 2015, 06:37:20 pm
qual è il criterio per scegliere cosa copiare da Edit1?

per esempio, per la prima parola dopo lo spazio, puoi usare:
- pos (per identificare la posizione dello spazio), es: i := pos(' ', Edit1.Text)
- copy(Edit1.Text, i+1, numero-caratteri-da-copiare)
Titolo: Re:Problema TEdit
Inserito da: mecoman - Marzo 26, 2015, 11:40:12 am
Ciao, grazie per la risposta. Mi rendo conto che la domanda era un po "strana".
Ma ora ti chiedo:se al posto della Edit1 ci fosse una Combobox contenente un elenco di nomi  affiancati da un numero e nella Edit3 volessi far vedere solo il numero, la procedua da seguire è la stessa?
Ciao.
Titolo: Re:Problema TEdit
Inserito da: nomorelogic - Marzo 26, 2015, 03:22:39 pm
scrivi un esempio di contenuto e cosa deve essere estratto :)
Titolo: Re:Problema TEdit
Inserito da: mecoman - Marzo 27, 2015, 11:51:04 am
Ciao. Ecco cosa vorrei fare nel dettaglio.
Nel form ho una combobox contenente un elenco di nomi di coefficienti ed il relativo valore scritto tra parentesi, una edit1 ed un button1.
Quando clicco sul button1 vorrei che il numero scritto tra parentesi del nome del coefficiente venisse scritto nella edit1.
Ad esempio, se nella Combobox1 seleziono K=1/9 (0.92) e clicco Button1, nella Edit1 deve comparire solo il testo 0.92.
Ciao
Titolo: Re:Problema TEdit
Inserito da: Legolas - Marzo 27, 2015, 04:22:31 pm
Puoi usare la funzione ExtractDelimited. Devi aggiungere la unit strutils nella sezione uses e fare qualcosa del tipo:
Codice: [Seleziona]
edit1.Text := ExtractDelimited(2, ComboBox1.Items[ComboBox1.ItemIndex], ['(', ')']);
Titolo: Re:Problema TEdit
Inserito da: mecoman - Marzo 27, 2015, 04:47:07 pm
Ciao Legolas.
Grazie. Il codice che mi hai scritto funziona perfettamente. Era esattamente quello che volevo fare. Ciaoo. :)
Titolo: Re:Problema TEdit
Inserito da: Legolas - Marzo 27, 2015, 09:35:28 pm
Figurati!  ;)