Coder Forum

Source code

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, ExtCtrls, jpeg;

type
  TForm1 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    RadioButton3: TRadioButton;
    RadioButton4: TRadioButton;
    RadioButton5: TRadioButton;
    RadioButton6: TRadioButton;
    RadioButton7: TRadioButton;
    RadioButton8: TRadioButton;
    RadioButton9: TRadioButton;
    RadioButton10: TRadioButton;
    Button1: TButton;
    Image1: TImage;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    procedure RadioButton1Click(Sender: TObject);
    procedure RadioButton2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation
 uses  Unit2;
{$R *.DFM}

procedure TForm1.RadioButton1Click(Sender: TObject);
begin
 Radiobutton5.visible:=true;
 Radiobutton6.visible:=true;
 Radiobutton7.visible:=true;
end;

procedure TForm1.RadioButton2Click(Sender: TObject);
begin
Radiobutton8.visible:=true;
Radiobutton9.visible:=true;
Radiobutton10.visible:=true;
end;


procedure TForm1.Button1Click(Sender: TObject);
begin
if radiobutton5.checked=true then
begin
 form1.Hide;
 form2.visible:=true;
end;
end;

end.

Source code

unit Unit2;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Grids, Unit1;

type
  TForm2 = class(TForm)
    Label1: TLabel;
    StringGrid1: TStringGrid;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);




  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form2: TForm2;

implementation

{$R *.DFM}

procedure TForm2.FormCreate(Sender: TObject);
begin
stringgrid1.cells[0,0]:='Name';
stringgrid1.cells[1,0]:='Straße/Hausnummer';
stringgrid1.cells[2,0]:='PLZ/Ort';
stringgrid1.cells[3,0]:='Telefon';
end;

procedure TForm2.Button1Click(Sender: TObject);
begin
stringgrid1.rowcount:=stringgrid1.rowcount+1;
end;

procedure TForm2.Button2Click(Sender: TObject);
begin
stringgrid1.rowcount:=stringgrid1.rowcount-1;
end;

procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction);
begin
 form1.close;
end;


//..Stringgrid Prozedur
procedure saveGrdToFile(grd: TStringGrid; Pfad : String);
var
  i,j,row,col,len : Word;
  buff: string;
  fStream: TFileStream;
begin
  fStream := TFileStream.Create(pfad, fmCreate);
  fStream.Free;
    fStream := TFileStream.Create(pfad, fmOpenWrite);
      col := grd.ColCount -1;
      row := grd.RowCount -1;
      fStream.WriteBuffer(row, SizeOf(Word));
      fStream.writeBuffer(col, SizeOf(Word));
    for i := 0 to row do
      for j := 0 to col do
      begin
        buff := grd.Cells[j,i];
        len := Length(buff);
        fStream.WriteBuffer(len, SizeOf(Word));
        fStream.WriteBuffer(buff[1], len)
      end;
    fStream.Free;
end;
//..Prozedur Ende

//..Speichern über Button 'Speichern'
procedure TForm2.Button3Click(Sender: TObject);
begin
savegrdtofile(StringGrid1, 'Adressbuch.dat');
end;


//..Prozedur zum Laden des Grids
procedure loadGrdFromFile(grd: TStringGrid; Pfad : String);
var i,j,row,col,len : Word;
buff: string;
fStream: TFileStream;
begin
  fStream := TFileStream.Create(pfad, fmOpenRead);
  fStream.ReadBuffer(row, SizeOf(Word));
  fStream.ReadBuffer(col, SizeOf(Word));
  grd.ColCount := col + 1;
  grd.RowCount := row + 1;
  for i := 0 to row do
    for j := 0 to col do
    begin
      fStream.ReadBuffer(len, SizeOf(Word));
      SetLength(buff, len);
      fStream.ReadBuffer(buff[1], len);
      grd.Cells[j,i] := buff
    end;
    fStream.Free
end;
//..Prozedur Ende

//..Laden über Button 'Laden'







procedure TForm2.Button4Click(Sender: TObject);
begin
loadgrdfromfile(Stringgrid1, 'Adressbuch.dat');
end;

end.