Jump to content
Sign in to follow this  
co-pekok

Basic File Text Operations

Recommended Posts

Aku tengah buat program ringkas untuk Auto Credit salary for bank. Masalahnya, sisem bank tu cuma boleh baca disket aku kalau data dalam notepad tu tidak berada dalam quotes "".

Cth data biasa:

"Aizal Manan", 55682, 2500.00

"Salmi", 99854, 2300.65

Yg aku nak:

Aizal Manan, 55682, 2500.00

Salmi, 99854, 2300.65

sebab aku tak tau cara nak buat lewat VB, dan untuk mengisi topic pascal / delphi ini (habis kat sini terlalu sepi dry.gif ) saya gunakan delphi.

procedure TForm1.BitBtn1Click(Sender: TObject);
  // local procedure untuk membersihkan kotak inputan
  procedure ClearEdit;
  begin
    Edit1.Clear;
    Edit2.Clear;
    Edit3.Clear;
    Edit1.SetFocus;
  end;

const
  sFileName = 'C:\DataBank.txt';
var
  F     : TextFile;
  sData : String;
begin
  // set FileText kedalam variable
  AssignFile(F, sFileName);
  // check apakah dah ada file tersebut, jika dah ada buka tapi
  // kalau belum ada buat file baru
  if FileExists(sFileName) then
    Append(F) else
    Rewrite(F);
  // simpan data
  sData := Edit1.Text + ', ' + Edit2.Text + ', ' + Edit3.Text;
  WriteLn(F, sData);
  // pastikan data benar-benar dah tersimpan, dan
  // bersihkan kotak inputan
  Flush(F);
  ClearEdit;
  // tutup fileText
  CloseFile(F);
end;

nanti hasilnya :

user posted image

dan file text :

user posted image

Share this post


Link to post
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Reply to this topic...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

Loading...
Sign in to follow this  

×
×
  • Create New...