Problema TEdit

[mecoman]

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

[nomorelogic]

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)

[mecoman]

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.

[nomorelogic]

scrivi un esempio di contenuto e cosa deve essere estratto

[mecoman]

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

[Legolas]

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], ['(', ')']);

[mecoman]

Ciao Legolas.
Grazie. Il codice che mi hai scritto funziona perfettamente. Era esattamente quello che volevo fare. Ciaoo.

[Legolas]

Figurati!