Hal ini bisa diaplikasikan misalnya pada pengambilan data pada rangkaian elektronik atau pada pembuatan grafik dimana kita ingin menyimpan data tersebut dan pada saat yang lain kita ingin membukanya kembali.

A. Save Data

Perintah yang digunakan dalam menge-save adalah:

if SaveDialog1.Execute then
begin
  AssignFile([variable filetext],SaveDialog1.Filename);
  Rewrite([variable filetext]);
  Writeln([variable filetext],[variable yang akan disimpan];
  CloseFile([variable filetext]);
end;

SaveDialog.Execute adalah perintah untuk menampilkan save dialog. 
AssignFile adalah perintah untuk membuka file output yang digunakan untuk menyimpan pada kotak dialog. 
Rewrite adalah perintah untuk menyimpan pada variable textfile. 
Writeln adalah perintah untuk menulis data pada file. 
CloseFile digunakan untuk menutup file jika data telah ditulis di variable textfile.

Contoh program sederhana:

var
  xxx : TextFile;
  j : Integer;
begin
  if SaveDialog1.Execute then
  begin
    AssignFile(xxx, SaveDialog1.Filename);
    Rewrite(xxx);
    for j:=0 to 25 do Writeln (xxx,y[j]:5:2);
    CloseFile(xxx);
  end;
end;

Untuk program diatas penulis menyimpan 25 data, jadi dipergunakan looping untuk menyimpan seluruh data.

B. Load Data

Perintah yang dipergunakan untuk menge-load data dari sebuah file adalah:

if OpenDialog1.Execute then 
begin
  AssignFile([Variable TextFile],OpenDialog1.FileName); 
  Reset([Variable TextFile]);
  Readln([Variable TextFile],[Variable Data]); 
  CloseFile([Variable TextFile]);
end;

OpenDialog.Execute adalah perintah untuk menampilkan open dialog.
AssignFile adalah perintah untuk membuka file yang menyimpan data yang akan dibuka pada kotak dialog.
Reset adalah perintah untuk membersihkan isi dari variable textfile yang akan dipergunakan untuk mengambil data.
Readln adalah perintah untuk membaca data pada file. 
CloseFile digunakan untuk menutup file jika data telah diambil oleh variable textfile.

Contoh program sederhana:

var
  F: TextFile;
  S: String;
  i: Integer;
begin
  if OpenDialog1.Execute then
  begin
    AssignFile(F, OpenDialog1.FileName );
    Reset(F);
    for i:=0 to 25 do
    begin
      Readln(F, S);
      series1.Addxy(i,strtofloat(S))
    end;
    CloseFile(F);
  end;
end;

Untuk program diatas penulis tidak hanya mengambil 1 data tapi 25 data jadi penulis menggunakan looping untuk mengambil semua data untuk digambar pada grafik TChart.

Anda dapat juga melihat contoh program yang telah jadi dengan mendownload program dibawah ini. Untuk komentar dapat anda kirim ke ratih@sony-ak.com. Tulisan menarik lainnya bisa Anda baca di www.sony-ak.com.

Source code lengkap dari contoh di atas bisa di download di saveloaddelphi1.zip.

Terimakasih.