<?xml version="1.0" encoding="UTF-8"?>
<!-- generator="FeedCreator 1.8" -->
<?xml-stylesheet href="http://wiki.techtic.pro/lib/exe/css.php?s=feed" type="text/css"?>
<rdf:RDF
    xmlns="http://purl.org/rss/1.0/"
    xmlns:rdf="http://www.w3.org/1999/02/22-rdf-syntax-ns#"
    xmlns:slash="http://purl.org/rss/1.0/modules/slash/"
    xmlns:dc="http://purl.org/dc/elements/1.1/">
    <channel rdf:about="http://wiki.techtic.pro/feed.php">
        <title>TechTIC prog:lazarus:cas:console</title>
        <description></description>
        <link>http://wiki.techtic.pro/</link>
        <image rdf:resource="http://wiki.techtic.pro/lib/exe/fetch.php?media=favicon.ico" />
       <dc:date>2026-05-12T20:35:46+0200</dc:date>
        <items>
            <rdf:Seq>
                <rdf:li rdf:resource="http://wiki.techtic.pro/doku.php?id=prog:lazarus:cas:console:appconsole&amp;rev=1680878742&amp;do=diff"/>
                <rdf:li rdf:resource="http://wiki.techtic.pro/doku.php?id=prog:lazarus:cas:console:console&amp;rev=1677236855&amp;do=diff"/>
                <rdf:li rdf:resource="http://wiki.techtic.pro/doku.php?id=prog:lazarus:cas:console:faire_une_appli_lazarus_console_sans_console&amp;rev=1680873716&amp;do=diff"/>
            </rdf:Seq>
        </items>
    </channel>
    <image rdf:about="http://wiki.techtic.pro/lib/exe/fetch.php?media=favicon.ico">
        <title>TechTIC</title>
        <link>http://wiki.techtic.pro/</link>
        <url>http://wiki.techtic.pro/lib/exe/fetch.php?media=favicon.ico</url>
    </image>
    <item rdf:about="http://wiki.techtic.pro/doku.php?id=prog:lazarus:cas:console:appconsole&amp;rev=1680878742&amp;do=diff">
        <dc:format>text/html</dc:format>
        <dc:date>2023-04-07T16:45:42+0200</dc:date>
        <dc:creator>Anonymous (anonymous@undisclosed.example.com)</dc:creator>
        <title>Application Console</title>
        <link>http://wiki.techtic.pro/doku.php?id=prog:lazarus:cas:console:appconsole&amp;rev=1680878742&amp;do=diff</link>
        <description>Application Console

Ecrire et Lire

Write / Read


  Write('text'); //ecrit
  WriteLn('text'); //ecrit  et passe a la ligne


&lt;https://www.freepascal.org/docs-html/rtl/system/write.html&gt;

ReadKey


     ch:=ReadKey; {ch = char}


Sortir du programme

Halt

halt(ExitCode);

&lt;https://www.freepascal.org/docs-html/rtl/system/halt.html&gt;

ExitCode

ExitCode est la variable qui contiendra le code d'erreur retourné par le programme.</description>
    </item>
    <item rdf:about="http://wiki.techtic.pro/doku.php?id=prog:lazarus:cas:console:console&amp;rev=1677236855&amp;do=diff">
        <dc:format>text/html</dc:format>
        <dc:date>2023-02-24T12:07:35+0200</dc:date>
        <dc:creator>Anonymous (anonymous@undisclosed.example.com)</dc:creator>
        <title>Travailler avec la Console CMD</title>
        <link>http://wiki.techtic.pro/doku.php?id=prog:lazarus:cas:console:console&amp;rev=1677236855&amp;do=diff</link>
        <description>Travailler avec la Console CMD

Sources &amp; Ressources

	*  &lt;https://www.developpez.net/forums/d1841121/autres-langages/pascal/lazarus/recuperer-infos-d-application-console/#post10167133&gt;
	*  &lt;https://www.developpez.net/forums/d2116667/autres-langages/pascal/lazarus/codepage-sortie-console-windows-10-a/&gt;
	*  &lt;https://github.com/t-edson/UnTerminal&gt;</description>
    </item>
    <item rdf:about="http://wiki.techtic.pro/doku.php?id=prog:lazarus:cas:console:faire_une_appli_lazarus_console_sans_console&amp;rev=1680873716&amp;do=diff">
        <dc:format>text/html</dc:format>
        <dc:date>2023-04-07T15:21:56+0200</dc:date>
        <dc:creator>Anonymous (anonymous@undisclosed.example.com)</dc:creator>
        <title>Faire une appli Lazarus console sans console</title>
        <link>http://wiki.techtic.pro/doku.php?id=prog:lazarus:cas:console:faire_une_appli_lazarus_console_sans_console&amp;rev=1680873716&amp;do=diff</link>
        <description>Faire une appli Lazarus console sans console

Quand on fait un programme simplissime comme:

----------


Program TestCmd;
Uses
   Windows,SysUtils;

Var
   i: Integer;
Begin
   For i := 0 To 9999999 Do
   Begin
      Write(#13+IntToStr(i));
      sleep(500);
   End;
End.</description>
    </item>
</rdf:RDF>
