Discussion :

[Roland Chastain]

Bonjour !

J'ai commencé un petit projet Delphi 6 utilisant la librairie LightVCL de Paul TOTH. D'après la date des fichiers, la librairie est de 2001. Tout fonctionne bien mis à part un problème de chaîne tronquée (le dernier caractère de la chaîne saute) que je n'ai pas su résoudre, bien que j'aie déjà sollicité des explications ici même sur un problème semblable.

Le problème se manifeste lors de l'appel à la procédure ShowMessage :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ShowMessage(Edit1.Text);

Voici la déclaration de cette procédure :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Procedure ShowMessage(Msg:string);
 begin
  MessageBox(0,PChar(Msg),'MySoft.LightVCL',0);
 end;

Et celle du type TEdit :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 TEdit=class(TWinControl)
 private
  fText:string;
 {$ifdef linux}
  procedure paint; override;
 {$endif}
 protected
  procedure CreateHandle; override;
 {$ifdef win32}
  function GetText:string;
 {$endif}
  procedure SetText(Value:string); override;
 public
 {$ifdef linux}
  property Text:string read fText write SetText;
 {$endif}
 {$ifdef win32}
  property Text:string read GetText write SetText;
 {$endif}
 end;

Au cas où cela intéresserait quelqu'un, je joins mon projet. Je suis parti d'un des exemples fournis avec la librairie, auquel je n'ai pratiquement rien changé, si ce n'est que j'y ai ajouté une fonction (écrite par mick605) qui supprime les espaces inutiles.

[Jipété]

Bonsoir,

ÀMHA, le problème vient de cette fonction "SupprEspace", parce qu'en l'état, en lançant l'exe joint, un clic sur "Afficher" renvoie "Texte Edit", donc l'espace central n'est pas supprimé.

Moi j'ai bêtement fait

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
function SupprEspace(Txt : string): string;
var
  i : integer;
begin
  Result := '';
  for i := 1 to Length(Txt) do
    if Txt[i]=' ' then 
      Continue
    else 
      Result := Result + Txt[i];
end;

et, ma foi, ça fonctionne aussi bien avec "Texte Edit1" qu'avec " Texte Edit1 ".

Mais en pur D7 perso, sans le LightVCL (je ne vois pas le rapport, de toute façon).

[Roland Chastain]

Merci d'avoir regardé. Je crois que j'ai brouillé les pistes en parlant de cette fonction qui supprime les espaces inutiles. En fait le problème est antérieur à l'ajout de cette fonction.

en lançant l'exe joint, un clic sur "Afficher" renvoie "Texte Edit"

Justement, ce devrait être "Texte Edit1". Le "1" a été coupé. Je dirais que c'est le type string qui est en cause mais je n'ai pas trouvé la modification à faire.

[Paul TOTH]

En effet, petit bug dans la LVCL

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Function TEdit.GetText:string;
 begin
  SetLength(Result,SendMessage(fHandle,WM_GETTEXTLENGTH,0,0));
  SetLength(Result,SendMessage(fHandle,WM_GETTEXT,Length(Result) + 1,integer(@Result[1])));
 end;

[Roland Chastain]

En effet, petit bug dans la LVCL

Merci, Paul ! Le problème est résolu. Cependant je vais continuer d'explorer les possibilités de la librairie et si j'ai d'autres questions je les poserai ici.

[Jipété]

Merci d'avoir regardé. Je crois que j'ai brouillé les pistes en parlant de cette fonction qui supprime les espaces inutiles. En fait le problème est antérieur à l'ajout de cette fonction.

Ah ben, si tu nous embrouilles, alors...

Justement, ce devrait être "Texte Edit1". Le "1" a été coupé. Je dirais que c'est le type string qui est en cause mais je n'ai pas trouvé la modification à faire.

Nan ! Ça devrait être "TexteEdit1" puisque la fonction (et la discussion que tu citais, que j'ai à peine survolée, vu l'heure hier soir ) est sensée supprimer tous les espaces d'une chaine, ceux à l'intérieur également.
Mais peut-être que Paul t'a donné la soluce.

Just curious, ça sert à quoi de vouloir supprimer les espaces dans une chaine ?
Àgénéreruninfâmepâtéillisible?

Bonne journée,

[Roland Chastain]

Just curious, ça sert à quoi de vouloir supprimer les espaces dans une chaine ?

Seuls les espaces superflus sont supprimés, autrement il est vrai que ça n'aurait pas grand intérêt.

Quand au projet présenté ci-dessus, il n'a aucune utilité en lui-même. C'est seulement un exemple.

[Roland Chastain]

Bonjour !

Voici un deuxième mini projet basé sur la LVCL. C'est un programme qui génère toutes les combinaisons possibles d'un ensemble de caractères.

J'en ai profité pour retravailler l'exemple précédent (test de la fonction SupprEspace).

J'aime vraiment bien cette petite librairie. Pour comprendre comment est fait un projet Delphi c'est parfait. Et pour de petits projets du genre exercice, c'est appréciable d'avoir des exécutables d'une taille raisonnable.

Je me demande une chose. Est-il permis de distribuer les sources de la librairie avec un projet ?