Recherche:

bon jour
changer la langue du clavier
bon courage

bon jour
il faux métre aussi

application.ProcessMessages
dans les deux boucle

-enlever les deux ELSE dans votre code
(si la condition et true vous obtien une boucle infinie )

- mètre...

bonjour


const Max=10;
var
rdm: array [1..10] of integer;
occ:array [1..10] of integer;
i,j:integer;
begin
writeln ('=======tableau 1==========');

bon jour
je vous propose deux methode dans un seul programme
a+

bon jour

Cela peut vous aider ?
http://www.developpez.net/forums/d1397515/environnements-developpement/delphi/langage/remplacer-point-decimal-clavier-numerique-virgule/
a+

bon jour
j'ai pas bien comprie votre probleme mai je vous propose un autre programme qui est plus cour


Activation := False;
// If (Niveau = 0) Then
For I := 1 to (5 +...

bon jour

il faux deplacer dans la table
si vous travail avec les ADO


procedure TForm1.Button1Click(Sender: TObject);
begin
form1.ADOTable1.Next;
// table1.next // si vou travail avec...

bon jour


peux etre lutilisation de radiogroupe et plus pratique
charger le items de RadioGroup par choix1 , choix2 ,...


procedure TForm1.RadioGroup1Click(Sender: TObject);
begin...

bon jour
trier un champ mémo :calim2:
pourquoi pas une autre table 'Activite' qui contient tous les activiter et le chams activite soit alphabetique c'est plus controlable

bon jour
si veux tu qu'il ne change pas de valeur


procedure TForm1.CheckBox1Click(Sender: TObject);
begin
(sender as tCheckBox ).OnClick := nil;
(sender as tCheckBox ).Checked := not...

bon jour
juste une petite remarque
si je veux q'une fiche secondaire soit afficher directement apre le
Application.CreateForm(TForm2,Form2);
je mets la propriété visible de cette fiche a...

bon jour
dans paradox s'il on a un probleme d'ouverture de table c'est surement un probleme d'index il faux le supprimer et le recreé


try
form1.table1.Open;
except
// supression...

bon jour

procedure TForm1.Button1Click(Sender: TObject);
begin
label1.Caption := currtostrf(strtocurr(edit1.Text),(ffCurrency),2 );
end;
CurrToStrF :Convertit une variable monétaire en...

bon jour
dans paradox utiliseez le filtre pour eviter tout ces teste


votre code sera comme ça


begin

table1.Filter := ' DATENAISS = ''0000*''' //affiché que les 'datenais' commencent...

bon jour



procedure TForm2.MonthCalendar1DblClick(Sender: TObject);
begin
Form1.Edit1.Text := DateToStr(Form8.MonthCalendar1.Date);
form8.Close;
end;
mai c'est pas trés pratique votre...

rebonjour
dans votre cas peux etre que TDBRadioGroup est plus pratique


A+

bon jour
faux miex Utilisez DBCheckBox

du help delphi 6

A+

exactement rayek c'est que je cherche merci:ccool:, merci aussi pour Pascal Fonteneau

bon jour

pour recuperer la version de mon application développer sous D6 j'utilise la fonction suivante


Function GetFileVersion(): string;
const
Flangid : string = '040C';
var ...

bon jour



attention! si vous chercher le DecimalSeparator peut etre qu'il soit . ou ,
il faut remplace le code precedent par :


procedure TForm1.Edit1KeyPress(Sender: TObject; var...

bon jour
peux étre que ce code vous aideras

bon jour
duble click sur cette option
en suite ecrivez le code

concessionnaire.showmodal;

bon jour
dans mon cas si votre probleme just l'affichage d'une forme vou pouvez utilisez form1.show avant la brocedure


begin
Application.Initialize;
Application.CreateForm(TForm1,...

bon jour


begin
Application.Initialize;
Application.CreateForm(TForm1, Form1);
Application.CreateForm(TForm2, Form2);
Application.CreateForm(TForm3, Form3);
...

bon jour
par exemple faire un filtre a voter table avant

form.quickreport.preview
A+