AVEC CE LOGICIEL DE CYBERCAFÉ, APPRENEZ LA PROGRAMMATION ......
cs_brahimdz
Messages postés
3
Date d'inscription
jeudi 5 septembre 2002
Statut
Membre
Dernière intervention
6 août 2004
-
5 sept. 2002 à 18:18
vrachid Messages postés 109 Date d'inscription lundi 6 mars 2006 Statut Membre Dernière intervention 5 octobre 2011 - 3 avril 2008 à 18:25
vrachid Messages postés 109 Date d'inscription lundi 6 mars 2006 Statut Membre Dernière intervention 5 octobre 2011 - 3 avril 2008 à 18:25
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/12135-avec-ce-logiciel-de-cybercafe-apprenez-la-programmation
https://codes-sources.commentcamarche.net/source/12135-avec-ce-logiciel-de-cybercafe-apprenez-la-programmation
3 avril 2008 à 18:25
14 nov. 2004 à 05:02
22 janv. 2004 à 10:43
Quelqu'un peut me l'envoyer
2 janv. 2004 à 19:06
2 janv. 2004 à 16:19
Merci à brahimdz.
30 déc. 2003 à 17:10
franchement t'a bien assuré . . .lol
moi aussi j'ai fai la même chose ( client/serveur )
t'a pas un lien de ton prog, je veu juste le voir si c'est possible
Bon Prog
---------Bice-----------
6 avril 2003 à 17:43
12 janv. 2003 à 02:18
le mien et client/serveur avec restriction....
Il te faut beaucoups de travail pour etre au niveaux des Algériens.
ne le prend pas mal
16 sept. 2002 à 06:50
brahimdz, tu peux virer a1..16 et remplacer deux fontions par ce qui suit ton code seras plus lisible et plus rapide ...
procedure TForm1.Button2Click(Sender: TObject);
var ps:integer;
begin
try
ps:=(strtoint(combobox2.Text)-1)*2; // calcul de la position des lignes
except
exit;
end;
edit3.Text:=memo1.Lines.Strings[ps];
edit4.Text:=memo1.Lines.Strings[ps+1];
end;
procedure TForm1.SpeedButton1Click(Sender: TObject);
var ps,j:integer;
begin
try
ps:=(strtoint(combobox1.Text)-1)*2; // calcul de la position des lignes
except
exit;
end;
memo1.lines[ps]:=edit1.text;
memo1.Lines[ps+1]:=edit2.text;
memo1.Lines.SaveToFile('c:valid.txt');
edit1.Text:='00';
edit2.Text:='00';
combobox1.Text:='N° ...';
end;
Bon Coding...
ManChesTer.
9 sept. 2002 à 18:24
6 sept. 2002 à 18:37
6 sept. 2002 à 11:01
5 sept. 2002 à 19:49
5 sept. 2002 à 18:18