Charger dictionnaire dans Memo

Question

Bonjour, j'ai déjà postés un sujet à propos d'un projet "Frappe T9".
Et cette fois, je dois charger les dictionnaire dans un mémo pour montrer les mots restants.
Exemple:
  27 = il me laisse tout les mots commençant par AR, AP, AS, ...
procedure TFT9Dictionnary.FormCreate(Sender: TObject);
var
   MyFile: TextFile;
   Temp_Str, Initial: String;
   First_Letter_Code: integer;
begin
  AssignFile(MyFile, 'RESSOURCES\DictionnaryFrench.txt'); // Open file
  Reset(MyFile);
  while not eof(MyFile) do begin
    Readln(Myfile, Temp_Str);
    Initial:= Copy(Temp_Str, 1, 1);  // Extract letter
    First_Letter_Code:= Ord(Initial[1])-97; // Convert first letter (ASCII code)
    Table_Dico[First_Letter_Code][Counter[First_Letter_Code]]:= Temp_Str;
    Inc(Counter[First_Letter_Code]);
  end;
  CloseFile(MyFile);
end;
Il initialise dans le FormCreate les dictionnaires, mais maintenant il faut donc les charger dans un mémo, et je ne vois pas du tout comment faire !!

Merci d'avance pour vos réponses

Julien

cs_cantador · Answer

Bonjour,

Utilise TString
voir aide de delphi.
tu trouveras aussi plein d'exemples sur le site.


cantador

Caribensila · Answer

TStrings , Canta  :)

var  TempList: TStrings;  { déclarer la liste }
begin
  TempList := TStringList.Create;  { construire l'objet liste }
  try
  ...   { utiliser la liste de chaînes }
  finally    TempList.Free;  { détruire l'objet liste }
  end;

cs_cantador · Answer

salut Cari,
6 mois sans micro, sans programmation ça laisse des traces..

cantador

Charger dictionnaire dans Memo

3 réponses

Votre réponse

Discussions similaires