aluuww KaKa semua.. lama aku ga tanya2 disini.. boleh kah saya bertanya lagi kasusnya gini.. aku punya database yang aku save ke text file yang isinya nomor transaksi. trus aku ingin baca nomor transaksi tersebut satu per satu dan aku tampilin ke label aku dah coba seperti ini.. procedure TForm1.Button4Click(Sender: TObject); begin TEMPTRX := TStringList.Create; TEMPTRX .LoadFromFile('H:\TRX.TXT'); FOR I := 0 TO TEMPTRX .Count - 1 DO BEGIN LblTRX.Caption :=TEMPTRX .Strings[I]; END; TEMPTEMPTRX .Free; tapi kok yang muncul cuman baris terakhir saja ya di label nya.. mohon pencerahannya..terima kasih

klo gini gmana,

LblTRX.Caption :=LblTRX.Caption + TEMPTRX.Strings[I] +#13;

maksut saya cuman satu baris tapi bisa membaca urut dari awal sampai akhir mas.. ada solusi lain

procedure TForm1.Button4Click(Sender: TObject); begin TEMPTRX := TStringList.Create; TEMPTRX .LoadFromFile('H:\TRX.TXT'); FOR I := 0 TO TEMPTRX .Count - 1 DO BEGIN LblTRX.Caption := LblTRX.Caption + '; ' + TEMPTRX .Strings[I]; END; TEMPTEMPTRX .Free;

ato gak usah pake looping...

var
  TEMPTRX : TStringList;
begin
  TEMPTRX := TStringList.Create;
  TEMPTRX .LoadFromFile('H:\TRX.TXT');
  LblTRX.Caption := TEMPTRX.Text;
  LblTRX.Caption := StringReplace(LblTRX.Caption,#13#10,' ;', [rfReplaceAll]);
  TEMPTEMPTRX .Free;
end;

mungkin bisa saya perjelas disini, jadi inti nya bikin semacam slide show yang tampil pada TLabel secara bergantian sampai data terakhir..seperti itu Kaka

wogh.. disitu bukannya ente load sekaligus semua yang ada di list ke label..? ya dari mastah-mastah diatas udah kasih pencerahan.. kalo ente mau kayak slide show, yang jangan load sekaligus dunk.. pake timer buat nempelin dari list nya ke label, satu-satu, sesuai delay yang diiningkan.