Contoh Pembuatan Aplikasi Rekord Delphi Console
Pemrograman Dasar - Rekord
Mr. Berry Prima, S. Kom
Rekord merupakan type data terstruktur yang digunakan untuk menyimpan sejumlah data dengan type data yang berbeda dalam suatu tempat yang merupakan konsep dasar dari DataBase.
Deklarasi Rekord antara lain :
Type
Pengenal : Record
NamaField1 : typedata;
NamaField2 : typedata;
...
NamaField(n) : typedata;
program ProjectTestRecord;
{$APPTYPE CONSOLE}
uses
Windows,
Messages,
SysUtils;
const
maks=3;
type
data_mhs = record
nim : string[10];
nama_mhs : string[25];
nilai_mhs : string[25];
end;
var
mhs : array[1..maks] of data_mhs;
nmr, nama : string[25];
i, n, nilai : Integer;
pilihan, cek : char;
procedure ClrScr;
var
hStdOut: HWND;
ScreenBufInfo: TConsoleScreenBufferInfo;
Coord1: TCoord;
z: Integer;
begin
hStdOut := GetStdHandle(STD_OUTPUT_HANDLE);
GetConsoleScreenBufferInfo(hStdOut, ScreenBufInfo);
for z := 1 to ScreenBufInfo.dwSize.Y do
WriteLn('');
Coord1.X := 0;
Coord1.Y := 0;
SetConsoleCursorPosition(hStdOut, Coord1);
end;
procedure Header;
begin
writeln('');
writeln(' =================================================');
writeln(' PROGRAM RECORD MAHASISWA, MIN MAX DAN RATA-RATA');
writeln(' =================================================');
end;
procedure CekMhs;
begin
write(' Masukkan Nim : A00');readln(n);
writeln(' Nama : ' + mhs[n].nama_mhs);
writeln(' Nilai : ' + mhs[n].nilai_mhs);
writeln;
end;
begin {Starting Main Statement}
{Input element Array}
Header;
FOR i := 1 to maks DO
begin
write(' Masukkan Nama : ');readln(nama);
write(' Masukkan Nilai : ');readln(nilai);
nmr := ('A00' + IntToStr(i));
ClrScr;
Header;
WITH mhs[i] DO
begin
nim := nmr;
nama_mhs := nama;
nilai_mhs := IntToStr(nilai);
end;
end;
REPEAT
begin
ClrScr;
Header;
CekMhs;
write(' Anda ingin menghitung lagi [Y/T] : '); readln(pilihan);
ClrScr;
end;
UNTIL (pilihan = 't') or (pilihan = 'T');
readln;
halt;
end.
Sumber Thanks to
Terminate Delphi Console Application
Operasi Pengulangan Delphi Console
Clear screen di aplikasi delphi console
