COMPOSANT LISTE DE STRINGS AVEC CHAMPS

Commentaire de cirec le 19/04/2008 13:57:50 administrateur CS

Alors moi je dis bravo

il y a eu beaucoup de travail de fait et une présentation soignée.

très très bien et certainement très utile ^^
10/10

Commentaire de florenth le 19/04/2008 16:27:14

Alors là... comme le dit Cirec, je salue le travail.
Utile, très utile même, complet, optimisé et bien présenté, que demander de plus ?
[tu ne serais pas publicitaire par hasard ? ^^]

Juste dire de dire quelque chose: tu pourrais rendre la propriété FieldValue par défaut dans la classe TRecordsList et peut-être ajouter un évènement OnChange pour mettre à jour les composants lors d'un changement (avec un BeginUpdate et un EndUpdate comme TStrings)

Bref, Génial ! Et je vois déjà à quoi ça pourrais bien te servir...
10/10

Commentaire de florenth le 19/04/2008 20:31:34

Par exemple en effet !

Si tu te mets aux champs typés, va falloir sacrément réfléchir car c'est pas si simple que ça en a l'air (je m'en souviens pour avoir essayé il y a un ou deux ans)

Commentaire de ThWilliam le 21/04/2008 09:21:57

Merci pour ton appréciation, Amiga68.
Et heureux de voir que ce compo puisse t'être utile.

Thierry

Commentaire de cirec le 21/04/2008 10:21:18 administrateur CS

@Delphiphi:

c'est normal PosEx n'est apparue qu'avec D7 mais tu peux trouver une une implémentation ici :
http://www.developpez.net/forums/showthread.php?t=41069&highlight=PosEx

c'est pas la même que celle de Delphi mais elle fait le même travail (je l'ai pas testé personnellement)

Celle de Delphi est écrite en assembleur et est donc plus rapide en dehors de cela les résultats devraient être les mêmes
@++

Commentaire de ThWilliam le 21/04/2008 10:45:41

Bonjour Delphiphi et merci.

Pour le problème de PosEx, ceci doit être plus rapide que la fonction trouvée sur le site renseigné par Cirec.

function PosEx(const SubStr, S: string; Offset: Cardinal = 1): Integer;
begin
  if Offset <= 1 then Result:= Pos(SubStr, S)
  else
  begin
    Result:= Pos(SubStr, Copy(S, Offset, Length(S)));
    if Result > 0 then Result:= Result + Offset -1;
  end;
end;

En D6, tu auras peut-être aussi un problème avec TFormatSettings. Si c'est le cas, tu peux virer dans MainFrm.pas tout ce qui concerne FS. Cela ne change pas grand chose à la démo.

A +
Thierry

Commentaire de cirec le 21/04/2008 10:53:34 administrateur CS

ha ha ha ... justement je lisais ton premier commentaire et
je me demandais ce que tu avais fumé ... mdr

Mais tu as quand même raison en disant que cette version est plus rapide que la première de mes propositions

Mais en ce qui concerne la deuxième .... heu ... aucune chance ^^