Einzelnen Beitrag anzeigen

wschrabi

Registriert seit: 16. Jan 2005
448 Beiträge
 
#1

LISTBOX und UNICODE/UTF8

  Alt 3. Jul 2015, 21:37
Hallo,
ich habe einen Filenamen wo ein UTF8 Zeichen drin ist. Diese Datei sieht man schon im Browser richtig als accute c.
Doch wenn ich in eine Listbox diesen STRING mit Listbox2.Items.Add ( Filename[i] ) hinzufüge sieht man zur Laufzeit in der Box einen Blöden Strich statt accute c.
IM XE6 Delphi IDE sieht man aber schön unter UNTERSUCHEN, dass das accute c da ist.
Was mache ich falsch? Bitte um Rat. DANKE
Delphi-Quellcode:
procedure TForm1.MakeFileList(teil:array of string; Verzeichnis: string);
var
  Files: TStrings;
  i: integer;
begin
  Files := TStringList.Create;
  try
  // procedure FindAllFiles(const FileList: tstrings;RootFolder: string; Maske: array of string; Recurse: Boolean = True);

    FindAllFiles(files, Verzeichnis, teil, false);
    for i := Files.Count -1 downto 0 do
    begin
        ListBOx2.Items.Add(Unicodestring(Files[i]));
        //DeleteFile(Files[i]);
    end;



  finally

    Files.Free;
  end;
end;
Miniaturansicht angehängter Grafiken
fillist_utf8_1.jpg   fillist_utf8_2.jpg   fillist_utf8_3.jpg  
  Mit Zitat antworten Zitat