J'ai travaillé sur le sujet il y a quelques années. Je vais essayer de retrouver ma production. C'est une image dans laquelle tu découpes des parties. De mémoire ans l'EDI il y a moyen d'accéder...
Type: Messages; Utilisateur: ALWEBER
J'ai travaillé sur le sujet il y a quelques années. Je vais essayer de retrouver ma production. C'est une image dans laquelle tu découpes des parties. De mémoire ans l'EDI il y a moyen d'accéder...
A disposition en fonction de mes disponibilités :)
ChapGPT répond correctement dans 70% des cas selon mon expérience et aussi si tu lui pose la bonne question ... La partie résiduelle n'est pas traitée ici mais peut l’être aisément
program...
La réponse de chatgpt :
program BoucleForStepModulo;
var
i: integer;
begin
// Boucle de 1 à 100 par pas de 3
for i := 1 to 100 do
Envoies moi ton exemple. Je mettrai le code dessus. Bonne journée
Le code doit être mis sur le onchange de chaque TEdit
procedure TForm1.Edit1Change(Sender: TObject);
begin
Button1.Enabled := (edit1.text<>'') and (edit2.Text<>'') ;
end;
procedure...
En fonction de ta fiche VCL ou FMX tu peux faire une copie de l'image de ta fiche et la sauvegarder dans un fichier bmp ou autre
Si tu passe l'appli dans une version ultérieure pense à traiter les strings en fontion de la version de Delphi. Je viens de le faire pour un client pour une application industrielle. Je suis passé...
J'ai modifié ta procédure i : integer. Et je suis passé en ANSIString (1 caractère = 1 octet)
function CryptDeCrypt(St1: AnsiString; CleInt: integer): AnsiString;
var
i1: integer;
...
Tu copie ton stringlist dans un string
MonString ;= Memo1.lines.text
Du crypte ton string et tu sauvegarde ton string en le mappant sur un TMemoryString
Demarche inverse pour le decryptage
Les composants TserverSocket et TclientSocket ne sont pas présent par défaut. Ils doivent être installés
Selectionner Composant > Installer des Packages puis
Ajouter. Le package se trouve dans le...
procedure TForm1.Button1Click(Sender: TObject);
var
i1 : integer ;
begin
SL1 := TStringlist.Create ;
for i1 := 1 to 300000 do
sl1.Add('test '+i1.ToString) ;
ListBox1.Items.Text :=...
Bonjour, sans garantie car je n'ai pas testé. Tu passe le parent à nil le temps de l'opération de chargement. J'ai été confronté au même problème il y a 20 ans et j'avais trouvé cette solution....
IL faut passer les objets animation enabled à true dans ton exemple
SI j'ai bien compris ta question tu peux t'inspirer du code suivant :
type
TOper = (RCoils, RDiscreteInputs, RHoldingRegisters, RInputRegisters,
WSingleCoil, WingleRegister,...
ci joint la démo comme prévu avec un peu de retard car je travaille actuellement sur un projet robotique Je reponds aux autres questions ce WE
Eviter d'utiliser en même temps TFloatAnimation avec Timer et TTask.
Exemple qui fonctionne chez moi (Delphi 11)
object FloatAnimation1: TFloatAnimation
AnimationType =...
Bonjour, je travaille actuellement sur une appli ancienne qui permet de passer une fiche en mode design au runtime
Le module "formedit" ou "formedt" qui était utilisé permettait de faire cette...
Bonjour, Tu as des fonctions qui te permettent de lire xml vers le dataset, réorganiser les données à ta convenance et de resauvegarder les modifs comme
ClientDataSet1.MergeChangeLog;
...
Tu peux faire une copie d'une partie de la fenêtre de l'application et en faire une image 2D. Je peux te passer les quelques lignes de code qui réalise cette opération
650954
contenu du dfm en mode text. Tu peux faire un copier coller dans une fiche vierge du contenu si dessous. Il n'y a pas besoin de code. Les dummy remplacent les opérations de matrice
...
Voici un petit exemple
650649
J'ai mis une petite bibliothèque te permettant de tourner/déplacer les objets avec la souris
Ce qui est important ce sont les dummies et leur position :
object...
Depuis Delphi 11 j'accède bien au Wiki de la dernière version à cette adresse
https://docwiki.embarcadero.com/RADStudio/Athens/fr/Accueil
Je crées ma base avec un fichier de ressources comme cet exemple ci après que j'injecte via un sqlExec
create table connexion (
idConnexion integer not null,
login varchar(40) default...
voici ce que j'utilise. Bonne année
{$IFDEF Android}
stDossierBase := IncludeTrailingPathDelimiter
(System.IOUtils.TPath.GetSharedDownloadsPath) + 'Base';
stDossierBase :=...
Vous avez un bloqueur de publicités installé.
Le Club Developpez.com n'affiche que des publicités IT, discrètes et non intrusives.
Afin que nous puissions continuer à vous fournir gratuitement du contenu de qualité, merci de nous soutenir en désactivant votre bloqueur de publicités sur Developpez.com.