Filelistbox ile memo kontrolü

[Armani]

Günaydın arkadaşlar. Szie 2 sorum olacaktı.
1. Filelistbox da secili olan dosyanın(*.txt) içerigini memo da görebilmek mümkünmü(örneginiz varsa sevinirim.)
2. filelistboxda gördügüm dosyanın tarihini göremiyorum.

Bunları nasıl yaparım ?

teşekkürler

[husonet]

1. Sorunun Cevabı

FileListbox1 in OnClick eventine yazacağın kod.

Kod: Tümünü seç

Memo1.Lines.LoadFromFile(FileListBox1.FileName);

Kolay Gelsin...

[Armani]

Bu sorduguma utandım. Nedense farklı bir düşüncede yapmaya çalışmışım.
teşekkürler
fakat 2. sorum için bir cevabınız varmı ?

[husonet]

Bak 2 nci sorunun hazır fonksiyonunu bulamadım belki olabilir. Ama ben bunun için şimdi ufak bir Fonksiyan yazdım. Hayırlı Olsun

Kod: Tümünü seç

function DosyaTarihBak(FileName: string): TDateTime;
var DosyaYas: LongInt;
begin
  DosyaYas := FileAge(FileName);
  if DosyaYas = -1 then
    Result := 0
  else
    Result := FileDateToDateTime(DosyaYas)
end;

Kullanımı

Kod: Tümünü seç

    ShowMessage(DateToStr(DosyaTarihBak(FileListBox1.FileName)));

Kolay Gelsin...