Recherche:

Oui, je sais pour le Hint et pour la barre de scoll, mais on m'a demandé de regarder si c'était possible de le faire :?
Je vais regarder d'après les infos que tu m'as donnée, merci.

Bonjour,

J'aimerai pouvoir mettre le texte d'un noeud sur deux lignes, j'ai déjà fait quelques recherches sur internet mais je n'ai rien trouvé.
Je pense qu'il faut jouer sur le CustomDrawItem en...

Pourrais-tu me dire comment mettre ANSI par défaut?

Le fichier a été créé avec Win7.
Clique droit dans l'explorateur de windows, Nouveau - Document texte.
Ajout manuellement de test123.
Tout simplement, donc ça veut dire que par défaut win7 utilise...

Le but de départ était surtout de voir comment créer, modifier un fichier avec TFileStream.
Merci à vous pour vos explications.
Mais une dernière petite question, comment puis-je gérer ou vérifier...

Il semblerait que ce soit Windows qui crée en unicode par défaut car le fichier d'origine, je l'ai créé avec Windows en utilisant le bloque note pour créer un fichier texte dans lesquels j'ai écrit...

Merci à vous deux pour l'explication, je vais regarder à ça.
@ShaiLeTroll : Non, je ne mélange pas les deux, c'est simplement que j'ai essayé de faire le test sur les deux, sur deux pc différents et...

@guillemouze :
J'ai fais la lecture avec notepad++
Si je fais le test sur un pc avec Delphi 7, il écrit bien le nombre de caractère demandé, donc


test123aaaaaa

Sur Delphi XE2, j'obtiens

@Paul : J'ai essayé cette ligne de code sur mon pc au bureau mais il me double le nombre de caractère 'a' sur Delphi 7, j'obtiens test123aaaaaaaaaaaa
J'ai aussi refait un test sur Delphi xe, et...

Malheureusement, ce changement ne fait rien du tout. :?

SizeOf(char) vaut 2 et fs.Size vaut 16

Parfois, il enregistre test123aa dans le fichier test.txt au lieu de test123aaaaaa

Bonjour à tous,

J'ai un problème avec TFileStream sur delphi 7, je fais le simple code ci-dessous.


procedure TForm1.Button1Click(Sender: TObject);
var
fs: TFileStream;
buffer:...

Salut,
Peut être tu pourrais faire


pmMnuBqe.Items.Assign(MainForm.mmiEditionNouveau);

Salut,

Ton var doit se trouver dans la procedure ou si c'est global, tu dois le mettres avant implementation



var

sfile2: TStringStream ; Fbuffer: string; IdHTTP1:Tidhttp;
...

Salut,
Tu devrais trouver ton bonheur ici
http://delphi.developpez.com/faq/?page=composbdd#couleurdbgrid

Salut,

Effectivement, il est possible que le problème vienne du €. Tu dois remplacer la ligne, l'iso-8859-1 ne prend pas en charge le €


XMLdoc.Encoding := 'ISO-8859-1';

par

Salut,

Le problème peut venir du fait que tu as un champ nomé 'DATE', il faut modifier le nom de ce champ car DATE est un mot 'réservé'.

oui effectivement, ce sera mieux :D

Merci Andnotor.
Entre temp, j'ai aussi trouvé aussi une solution (Juste avant de voir qu'il y avait une réponse)


procedure TForm1.Button4Click(Sender: TObject);
var
Forigine,
Fcible:...

Non dans ce cas le var n'est pas nécessaire?
Tu peux donner un exemple de ce que tu lui passes en paramètre et ce qu'il te renvoi?

Salut,

Voici un exemple de code, a toi de l'adapter un peu :-)


procedure TForm1.TabControl1DrawTab(Control: TCustomTabControl;
TabIndex: Integer; const Rect: TRect; Active: Boolean);...

Bonjour à tous,

Quelqu'un aurait-il une idée de la fonction ou méthode à utiliser pour modifier non pas la date de modification d'un fichier mais la date de création d'un fichier.

Voici un...

Ben comme quoi, :lol:

Salut,
Voici la modification qui fonctionne aussi


unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,