Remove part of a text in the combobox

Question

I have a combobox that I read a directory and bring the names of the found files:

exit:

demons.txt 
arch.txt 
elo.txt

So far so good, but I would not like the extension to appear in the combobox .txt, how to remove it?

Answer 1

You can use the function TPath.GetFileNameWithoutExtension:

Uses
  IOUtils;
// ....

procedure TForm1.FormCreate(Sender: TObject);
const
   Arquivos: array[1..3] of string = ('demons.txt ','arch.txt ','elo.txt');
Var
   Arquivo: String;
begin
  ComboBox1.Clear;
  For Arquivo in Arquivos do 
  begin
    ComboBox1.Items.Add(TPath.GetFileNameWithoutExtension(Arquivo));
  end;
end;