|
| quote: | Originally posted by Nightflowers
mercredi 29 : programmation pascal (faut savoir que je sais programmer qu'en visual basic, mais ca y'avais pas dans la liste de choix, j'ai pris pascal car ca ressemble un peu a la programmation sur calcu TI  ) durée : 5h00 
|
Petit cours rapide de pascal
L'extrait de code suivant est en delphi (pascal objet)
| quote: |
procedure TForm1.ScruteurExecute(Sender: TObject);
begin
Liste_Fichiers.Clear;
nb_fichier := 0;
end;
|
une procedure ou fonction se note
procedure NomDeLaProcedure (param : TypeParam);
begin
end;
function NomDeLaFonction (param1, param2 : TParam1; param3 : TParam) : TypeParamSortie;
var
ma_variable : TypeParamSortie;
begin
result := ma_variable;
// NomDeLaFonction := ma_variable;
end;
Les 2 techniques pour renvoyer la valeur de sortie sont admises
| quote: |
procedure TForm1.ScruteurFichier(Sender: TObject; Nom: String);
begin
Liste_Fichiers.Items.Add(scruteur.GetNomFichier);
nb_fichier := nb_fichier +1;
end;
function Complete_Chaine_Num (chaine : string; longueur : integer) : string;
var
i : integer;
taille_chaine : integer;
begin
application.ProcessMessages;
taille_chaine := length (chaine);
for i:= 1 to longueur - taille_chaine do
begin
chaine := '0' + chaine;
end; // end for
Complete_Chaine_Num := chaine;
end; // Complete_Chaine_Num
procedure TForm1.Button1Click(Sender: TObject);
var
nom_fichier : string;
new_file : string;
i : integer;
str : string;
min, max : integer;
begin
scruteur.Dossier := source.Text;
scruteur.execute;
str := '';
for i:=1 to nb_fichier do
begin
nom_fichier := ExtractFileName (Liste_Fichiers.items[i-1]);
new_file := 'L_' + copy (nom_fichier, 4,4) + copy (nom_fichier, 9,3) + copy (nom_fichier, 13,2) + '.' + Complete_Chaine_Num (copy (nom_fichier, 18, length(nom_fichier) - 18 -3), 4) + '01.tif';
CopyFile (pchar(Liste_Fichiers.items[i-1]), pchar( destination.Text + '' + new_file), true);
Liste_Fichiers.Checked [i-1] := true;
Application.ProcessMessages;
end;
try
min := strtoint(val_min.text);
max := strtoint(val_max.text);
except on e :exception do
begin
showmessage ('les valeurs min et max sont des entiers');
exit;
end;
end;
for i:= min to max do
begin
new_file := 'L_' + copy (nom_fichier, 4,4) + copy (nom_fichier, 9,3) + copy (nom_fichier, 13,2) + '.' + Complete_Chaine_Num (inttostr(i) , 4) + '01.tif';
str := str + '
';
Application.ProcessMessages;
end;
memo.lines.add (str);
memo.Lines.SaveToFile (destination.Text + '' + 'include');
ShowMessage ('Terminé');
end;
|
Les pieges du pascal :
if (condition1) then
begin
end // ATTENTION PAS DE ';' AVANT UN ELSE !!!!
else
begin
end;
Va sur le site : (tu y trouvera de bon lien; je suis moi meme membre de delphinautes)
Une bonne URL pour le delphi (donc le pascal)
NB : Désolé pour l'indentation
Si tu veux d'autres codes sources, ou des explications n'hésite surtout pas
___________________
NikklassTeam trip blog
basse qui tabasse ... apéro qui fracasse
basse qui tabasse ... ti ponch de Guada qui tabasse aussi
Like we say in France, tonight you don't send woods, you send the forest !
|
Concours administratif...
) pour trouver du boulot.Je passe ca le 22/01 et me suis un peu plus penché sur les épreuves...
) et voila ce que ca dit :
et pis d'abord, on fait ça hors du territoire 
