🚀 go-pugleaf

> Witam,
> 
> Piszę sobie porgramik, gdzie m. in. porównuję poszczególne znaki z pliku txt
> z tekstem wprowadzonym z palca i znak np ś w pliku nie jest tak samo
> traktowany jak ś z palca.
> 
> Czy da się jakoś przyrównać 2 znaki diakrytyczne w prosty sposób?
> 
> 
> Pozdrawiam
> fatrix
> 
> 


program Project1;

{$mode objfpc}{$H+}

uses
  {$IFDEF UNIX}{$IFDEF UseCThreads}
  cthreads,
  {$ENDIF}{$ENDIF}
  Classes
  { add your units here };

const znaki:array[0..13] of char=(
   {ą:=}#0,{ć:=}#0,{ę:=}#0,{ó:=}#0,{ś:=}#0,{ż:=}#0,{ź:=}#0,
   {ĄĆĘÓŚŻŹ}#0,#0,#0,#0,#0,#0,#0);
// tu podajes z kody swoich znakow
var c:array[0..13] of char;

procedure InitChar;
var i:byte;
    f:file of char;
begin
   AssignFile(F,'d:\znaki.txt');
//   plik zawira kolejno ąćęóśżźĄĆĘÓŚŻŹ
// stworony w notaniku windowsa
   Reset(F);
   For i:=0 to 13 do Read(F,C[i]);
   Writeln('----- kody znakow  ---');
   Writeln('ą:=',ord(C[0]));
   Writeln('ć:=',ord(C[1]));
   Writeln('ę:=',ord(C[2]));
   Writeln('ó:=',ord(C[3]));
   Writeln('s:=',ord(C[4]));
   Writeln('ż:=',ord(C[5]));
   Writeln('ź:=',ord(C[6]));
   Writeln('Ą:=',ord(C[7]));
   Writeln('Ć:=',ord(C[8]));
   Writeln('Ę:=',ord(C[9]));
   Writeln('Ó:=',ord(C[10]));
   Writeln('S:=',ord(C[11]));
   Writeln('Ż:=',ord(C[12]));
   Writeln('Ź:=',ord(C[13]));
   close(F);
end;

procedure Zamien(S:Ansistring);
var Loop,i:Longint;
begin
   For Loop:=1 to Length(S) do
      for i:=0 to 14 do If S[Loop]=c[i] then begin
         S[Loop]:=znaki[i];
         break;
         //mozna znki posortowac od najczesciej wysepujacych
         //wtdy zamiana bedzie ciut szybsza
      end;
end;

begin
   InitChar;
   readln;
end.

---------------------

http://www.pckurier.pl/archiwum/artykuly/jankowski_bronislaw/litpol/litpol.pas.a
sp

http://www.pckurier.pl/archiwum/artykuly/jankowski_bronislaw/litpol/


-- 
Wysłano z serwisu OnetNiusy: http://niusy.onet.pl