! : Free Pascal Lazarus

Free Pascal Lazarus, . , , Free Pascal Lazarus Turbo Pascal7 7.

FreePascal Lazarus ?

Free Pascal (FPC) 32- 64- Pascal. Run-Time , : DOS, Linux, Windows, FreeBSD.
Free Pascal , , Turbo Pascal 7.0 Delphi 7 ( ), , . , , .

Lazarus - Free Pascal Delphi. Free Pascal - , GNU Public License (GPL), : Linux, Win32, OS/2, 68K . Free Pascal , - Delphi. Lazarus - , Delphi- . Java, , Lazarus Free Pascal "" .

Free Pascal 7 7

7 7 Free Pascal Free Pascal , , ( .7 FPC 2.0.4).

.

  1. FreePascal. FreePascal
  2. Lazarus. Lazarus
  3. FreePascal Lazarus
  4. FreePascal Lazarus
  5. http://freepascal.ru/forum/
  6. Free Pascal delphimaster.ru
  7. " Free Pascal Lazarus" ( Viesturs Lasinskis).
    : .., .., .. - .pdf 4,6Mb : ww.teacher.dn-ua.com www.teacher.ucoz.net . (, ) (4Mb, .rar) .

FreePascal ( \doc\), (eng), Offline.

Pascal ?

, , :
.. .. - Turbo Pascal 7.0 ( .djvu, 2Mb) ...

- (, ), .

IDE Free Pascal Borland Pascal ( - ). Turbo.tph ( . , Internet VideoLord.) - (0,3 .rar). - Turbo.tph Turbo.tph

FreePascal

  1. c IDE FreePascal. , , IDE. - E:\FPC2.0.4\bin\i386-win32\, .exe- FreePascal, ( fp.exe - c IDE fpc.exe - ) Prob, menu.pas. :
    > fpc prob\menu.pas
    - menu.pas. menu.exe prob
  2. (Turbo Pascal7)
  3. FPC
  4. ( demo FreePascal). (paramstr, assign, reset, blockread, new, dispose).
  5. FreePascal: (Hello, World) WinAPI
  6. Free Pascal: examples: CDROM
  7. FreePascal: examples: StringList
  8. Free Pascal: examples: MySQL4,5
  9. Free Pascal: examples: : ODBC - MS Access, MySQL
  10. Free Pascal: examples: md5

( fpc-2.2.4)

, , . ( ). ( ) ( uses), Ctrl . ( Ctrl - )

  1. CRC, , : crc, md5, ntlm
  2. : MySQL

. Lazarus.

:
- UTF8, , WinXP, ( ).

Win1251 -> UFF-8

  1. (WinXP) ( )

  2. PHP- ( , UTF-8): 
    <?
//Copyright:  akaghost@ua.fm
$ttbl=array(""=>"А",""=>"Б",""=>"В",""=>"Г",""=>"Д",""=>"Е",""=>"Ё",
""=>"Ж",""=>"З",""=>"И",""=>"Й",""=>"К",""=>"Л",""=>"М",""=>"Н",
""=>"О",""=>"П",""=>" ",""=>"С",""=>"Т",""=>"У",""=>"Ф",""=>"Х",
""=>"Ц",""=>"Ч",""=>"Ш",""=>"Щ",""=>"Ъ",""=>"Ы",""=>"Ь",""=>"Э",
""=>"Ю",""=>"Я",""=>"Ї",""=>"І",""=>"Є",""=>"Ў",""=>"а",""=>"б",
""=>"в",""=>"г",""=>"д",""=>"е",""=>"ё",""=>"ж",""=>"з",""=>"и",
""=>"й",""=>"к",""=>"л",""=>"м",""=>"н",""=>"о",""=>"п",""=>"р",
""=>"с",""=>"т",""=>"у",""=>"ф",""=>"х",""=>"ц",""=>"ч",""=>"ш",
""=>"щ",""=>"ъ",""=>"ы",""=>"ь",""=>"э",""=>"ю",""=>"я",""=>"і",
""=>"ї",""=>"є",""=>"ў");
$string=join("", file("input.win"));
echo strtr($string, $ttbl);
?>
  3. . FreePascal ( v-t-l - FreePascal.ru ) 
        program win1251_UTF_8;
    var
      f1, f2: Text;
      s: string;
    begin
      if paramcount<2 then
        begin
          writeln('Usage: win1251_UTF_8 infile outfile');
          readln; halt(1);
        end;
      Assign(f1, ParamStr(1));
      Reset(f1);
      Assign(f2, ParamStr(2));
      Rewrite(f2);
      while not EOF(f1) do
      begin
        ReadLn(f1, s);
        WriteLn(f2, AnsiToUtf8(s));
      end;
     Close(f1); Close(f2);
    end.
Rambler's Top100
Hosted by uCoz