Soyez le premier à donner votre avis sur cette source.
Vue 7 970 fois - Téléchargée 1 445 fois
{—————————————————————————————————————————————————————————————————————————} { Génére un formulaire *.WDF [F9] } {—————————————————————————————————————————————————————————————————————————} procedure Twin.Button1Click(Sender: TObject); var Edit: tedit; LabelEdit: TLabeledEdit; ComboBox: TComboBox; ColorBox: TColorBox; a, b, c, d: integer; email, destinataire, sujet, messge, filelier: string; begin if savedialog1.Execute then begin win.Caption := savedialog1.FileName; ini := tinifile.Create(savedialog1.FileName); try for a := 0 to componentcount - 1 do if components[a] is tedit then begin edit := tedit(components[a]); ini.WriteString('Edit', edit.Name, edit.Text); end; for b := 0 to componentcount - 1 do if components[b] is TLabeledEdit then begin LabelEdit := TLabeledEdit(components[b]); ini.WriteString('LabelEdit', LabelEdit.Name, LabelEdit.Text); end; for c := 0 to componentcount - 1 do if components[c] is TComboBox then begin ComboBox := TComboBox(components[c]); ini.WriteString('ComboBox', ComboBox.Name, ComboBox.Text); end; for d := 0 to componentcount - 1 do if components[d] is TColorBox then begin ColorBox := TColorBox(components[d]); ini.WriteString('ColorBox', ColorBox.Name, inttostr(colorbox.Selected)); end; finally ini.Free; end; end; memo.Lines.LoadFromFile(savedialog1.FileName); destinataire := webmaster.Text; filelier := savedialog1.FileName; if filelier = '' then begin filelier := Opendialog1.FileName; if filelier = '' then begin filelier := Win.Caption; end; end; sujet := 'Demande de site de ' + nom_client.Text + ' ' + prenom_client.Text; messge := 'Si vous avez des questions n''hésité pas.' + '%0D%0A' + '%0D%0A' + 'Le reste du message est généré automatiquement, donc ne l''effacé pas !!' + '%0D%0A' + '%0D%0A' + '[Edit]' + '%0D%0A' + 'adress2_client=' + adress2_client.text + '%0D%0A' + 'des1_site=' + des1_site.text + '%0D%0A' + 'des2_site=' + des2_site.text + '%0D%0A' + '[LabelEdit]' + '%0D%0A' + 'nom_client=' + nom_client.text + '%0D%0A' + 'prenom_client=' + prenom_client.text + '%0D%0A' + 'adress_client=' + adress_client.text + '%0D%0A' + 'code_postal_client=' + code_postal_client.text + '%0D%0A' + 'ville_client=' + ville_client.text + '%0D%0A' + 'tel_client=' + tel_client.text + '%0D%0A' + 'mail_cliient=' + mail_cliient.text + '%0D%0A' + 'adress_ftp=' + adress_ftp.text + '%0D%0A' + 'login_ftp=' + login_ftp.text + '%0D%0A' + 'pass_ftp=' + pass_ftp.text + '%0D%0A' + 'nom_site=' + nom_site.text + '%0D%0A' + 'domaine_site=' + domaine_site.text + '%0D%0A' + 'webmaster=' + webmaster.text + '%0D%0A' + '[ComboBox]' + '%0D%0A' + 'type_site=' + type_site.text + '%0D%0A' + 'style_site=' + style_site.text + '%0D%0A' + 'style_menu_site=' + style_menu_site.text + '%0D%0A' + '[ColorBox]' + '%0D%0A' + 'color_principal=' + inttostr(color_principal.selected) + '%0D%0A' + 'color_police=' + inttostr(color_police.selected); email := 'mailto:' + destinataire + '?subject=' + sujet + '&body=' + messge + '&file=' + filelier; ShellExecute(Handle, 'open', PChar(email), nil, nil, SW_SHOW); end;
Une seule boucle est nécessaire.
La méthode FindComponent me semble plus adaptée..
->>> snippets
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.