TechTIC prog:lazarus:structures
http://wiki.techtic.pro/
2026-05-12T19:44:17+0200TechTIC
http://wiki.techtic.pro/
http://wiki.techtic.pro/lib/exe/fetch.php?media=favicon.icotext/html2020-04-12T19:33:38+0200Anonymous (anonymous@undisclosed.example.com)Case Of
http://wiki.techtic.pro/doku.php?id=prog:lazarus:structures:case&rev=1586712818&do=diff
Case Of
Case C of
’a’ : WriteLn (’A pressed’);
’b’ : WriteLn (’B pressed’);
’c’ : WriteLn (’C pressed’);
else
WriteLn (’unknown letter pressed : ’,C);
end;text/html2023-03-15T15:56:25+0200Anonymous (anonymous@undisclosed.example.com)For
http://wiki.techtic.pro/doku.php?id=prog:lazarus:structures:for&rev=1678892185&do=diff
For
For To
for intI := 20 to 200 do
begin
...
end;
For Downto
A l'envers...
for intI := 200 downto 20 do
begin
...
end;
For In
Pour énumérer un type énuméré on peut faire
Énumérer avec For To
program Fruits;
type
TFruit = (fPomme, fPoire, fFraise, fMirabelle, fPrune, fFramboise, fCassis);
const
FruitTextes: array[TFruit] of String =
('Pomme', 'Poire', 'Fraise', 'Mirabelle', 'Prune', 'Framboise', 'Cassis');
begin
WriteLn('** Liste des fruits **');
for…text/html2020-04-12T19:32:57+0200Anonymous (anonymous@undisclosed.example.com)Les Structures
http://wiki.techtic.pro/doku.php?id=prog:lazarus:structures:structures&rev=1586712777&do=diff
Les Structures
Ce que j'appel les structures sont les instructions du type if, for, case, repeat etc...
* For
* Case Of