Witam
Piszę aplikację w programie Lazarus. W trakcie działania programu do kontrolki TListView dodawane są nazwy plików z katalogu. Jednak gdy w nazwie pliku znajdują się polskie znaki to dodawany item jest pusty (zmianna Caption = ''). Poniżej znajduje się kod procedury dodawania nowej pozycji
procedure TForm1.FormCreate(Sender: TObject);
var
Found:integer;
SR : TSearchRec;
begin
try
Found := FindFirst(ExtractFilePath(Application.ExeName)+'rzeki*.ini',faAnyFile,SR);
while ( Found = 0 ) do
begin
if (SR.Name <> '.') and (SR.Name <> '..') then
begin
ListView1.Items.Add.Caption := ChangeFileExt(Sr.Name,'');
end;
Found := FindNext(SR);
end;
finally
FindClose(SR);
end;
end;
Czy ktoś wie w czym jest problem i jak go rzowiązać? Dodam tylko że w Delphi wszystko jest w porządku tzn. wszystkie pliki są poprawnie dodawane. Gdy do ListView dodaję pozycję w ten sposób:
listView.Items.Add.Caption:='śćść';
to dadaje ją bez problemu. Problem zdaje się pojawiać gdy chcę dodać pozycję o nazwie podawanej przez zmienną.
Z góry dzięki za pomoc