Unicode in eine Textfile Speichern

[Domi]

Hi, tut mir Leid ich bin noch nicht soo erfahren mit Delphi und all seinen Funktionen, mach es erst seit so 1 1/4 Jahr halt in der Schule!

Nun gut also ich mache es so momentan,dass ich mir eben die TNTEdit felder reingeholt habe, weil ohne Widestrings geht es eben doch nicht und dann wird alles über Umwege die ja jetzt nicht soo wichtig sind dann in eine file of Widechar reingesteckt... also falls es wen interessiert das sieht beim speichern bei mir so aus:

Delphi-Quellcode:

    
    Liste.reset_next;
    AssignFile(Speicher,'Vok.txt');
    Rewrite(Speicher);



    for i:= 1 to Wortlaenge do
    begin
      wort[i] := (Liste.getelement as TVokpaar).GibRussisch[i];
      Write(Speicher,wort[i]);
    end;
    for i:= 1 to Wortlaenge do
    begin
      wort[i] := (Liste.getelement as TVokpaar).GibDeutsch[i];
      Write(Speicher,wort[i]);
    end;
    case (Liste.getelement as Tvokpaar).GibStatus of
      gekonnt:  wort[1] :=  '1';
      selten:   wort[1] :=  '2';
      nie:      wort[1] :=  '3';
    end;
    Write(Speicher,wort[1]);

Ist wahrscheinlich nicht die eleganteste Art und Weise, aber das meiste andere übersteigt meine bekannten Kreise... Aber ich denke Streams werde ich noch demnächst lernen... irgendwann mal . Achja falls sich wer fragt, wofür das Programm ist, dass soll mal einen Russisch Vokabeltrainer darstellen. Ist auch schon fast bereit dazu angewendet zu werden .

mfg
Domi