Salut,
J'ai essayé de garder le code au plus simple avec D10.4 et W10,
il va donc falloir probablement adapter en D7...
procedure TForm1.Button1Click(Sender: TObject);
Var
Registre :...
Salut,
J'ai essayé de garder le code au plus simple avec D10.4 et W10,
il va donc falloir probablement adapter en D7...
procedure TForm1.Button1Click(Sender: TObject);
Var
Registre :...
Salut,
procedure TForm1.Btn_ExecClick(Sender: TObject);
var
I : Byte;
begin
I := Byte(rbaudio.Checked) + Byte(rbvideo.Checked) shl 1 + Byte(rbTitre.Checked) shl 2;
case I of
1 :...
Bonjour à tous,
une autre approche par les TStrings...
var
I: Integer;
S: string;
begin
RichEdit2.Clear;
RichEdit1.Lines.LoadFromFile('Test.txt');
RichEdit1.WordWrap := False;
Salut,
j'avais commencé un truc il y a longtemps mais je ne l'avais pas fini et donc pas forcement utilisé et testé, si ça peut aider comme base de départ...
De souvenir l'idée de départ était de...
Salut,
la partie refresh est dans le MouseMouve mais il faut peut-être la déplacer dans le MouseUp ou carrément dans le ScrollBox Paint et adapter, je me suis gère penché sur le dessin, lines,...
Salut,
peut-être une idée de départ à améliorer...
...
type
TDiagram = class(TScrollBox)
private
FCanvas: TCanvas;
procedure WMPaint(var Message: TWMPaint); message WM_PAINT;
...
Salut Cantador,
voici peut-être un point de départ à adapter
procedure TForm1.Button1Click(Sender: TObject);
var
Node : IXMLNode;
I : Integer;
Titre : IXMLNode;
Section...
Bonjour,
c'est parfaitement possible avec le composant TComport, ensuite il existe chez Omron un exemple de logiciel du nom de "Multiway" (lien ici) pour les trames et protocol de communication......
Salut,
en supossant que CS est un TSysCharSet
je dirais 1609 en excluant #13 et #10 (CRLF)
@+
Bonjour à tous,
pour ma part pour les infos sur les display : Taille, fréquence, numéro de série, manufacture, name etc etc...
j'utilise en général l'Extended Display Identification Data qui est...
Pfff je dis n'importe quoi c'est pas pour les TChart...mais pour Excel que je procède comme ça pfff le boulet :aie:
Je ferai plus un truc comme ça
var
SeriesX : TLinesSeries;
begin
......
salut,
peut-être aussi simplement :aie:
var
...
MyGraph : _Chart;
MySerie : Series;
begin
...
MySerie := MyGraph.SeriesCollection(1,0) as Series;
Salut,
RvCode128BarCode : TRaveCode128BarCode;
Les autres ;)
TRaveCode39BarCode
TRaveEANBarCode
TRaveI2of5BarCode
TRavePostNetBarCode
TRaveUPCBarCode
@+
Salut,
J'aurai tendance à dire Timer seulement pour vérifier l'IP tout les X secondes ou minutes ou heures...( ou Thread, après chacun sa soupe).
Quand l'IP change alors je mets la valeur dans...
Salut,
En reprenant le premier poste...
...
var
stmp1 :string;
stmp2 :string;
PosFirst:Integer;
PosEnd :Integer;
begin
Ben je viens de faire l'essai pour être sûr et mon / le code de toulourou fonctionne, la ligne est bien remplacée...et il n'y a pas besoin de supprimer le fichier.
Juste une question tu actualises...
Salut,
AssignFile(f, chappli + 'Cincapip.html');
try
Rewrite(f);
WriteLn(f, '<!DOCTYPE html>');
WriteLn(f, '<html><!-- ' + DateTimeToStr(Now) + ' -->');
WriteLn(f, '<head>');
...
Re : Ben en essayant ton projet sous D2010 et W7 ça fonctionne avec les modifications :
- Chemin de la base dans ADOConnectionString...
- Comme je le soupçonnai auparavant passage de dgTitleClick...
Salut,
Est ce que dans les Options de la DBGrid1 dgTitleClick ne serait pas à false, si oui, ben le passer à true...:aie:
@+
Salut,
on peut simplifier très légèrement (pas testé) :aie:
procedure TForm1.WMDeviceChange(var Msg: TMessage);
var
iLetter: Integer;
DrivePath: string;
begin
if (Msg.wParam = $8000)...
Encore plus rapprochant :mrgreen:
Comment récupérer la ligne/colonne en cours sur un DBGrid ?
@+
@ShailLeTroll : C'est tout à fait exacte c'est une mauvaise pratique, mais parfois elle sort si simplement...je pense même que l'on doit la trouver dans la faq (à vérifier), enfin...
procedure...
Salut,
en transtypant...
NumRow := TDrawGrid(DBGrid1).Row;
NumCol := TDrawGrid(DBGrid1).Col;
@+
Non faut pas craquer :lol:
Je suis pas sur que la version delphi y soit pour grand chose...
mais la version de ZEOS 7 bêta unicode un peu plus,
en passant par iso tu auras probablement moins de...
Salut,
en regardant un peu sur le cite ZEOS, le problème et bien connu,
il y a quelques petites bidouilles/pistes dans le code source, mais pour le moment aucun correctif sur la bêta ( va falloir...
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.