Form aktualisieren

[billi]

Das ist die erste Unit:

Delphi-Quellcode:

unit UGalDat;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, FileCtrl, IniFiles, Menus;

const
  SELDIRHELP = 1000;

type
  TFeingabe = class(TForm)
    Lbitteverzpfad: TLabel;
    Bdurchsuchen: TButton;
    Ethema: TEdit;
    Lbittethema: TLabel;
    Lbittetext: TLabel;
    Etext: TEdit;
    Lendung: TLabel;
    Rendung_ja: TRadioButton;
    Rendung_nein: TRadioButton;
    Berzeugen: TButton;
    Lpfad: TLabel;
    Mausgabe: TMemo;
    ListBox1: TListBox;
    Lzeilenzahl: TLabel;
    Luberschriftzz: TLabel;
    MainMenu: TMainMenu;
    Service1: TMenuItem;
    Eoptionen: TMenuItem;
    procedure BdurchsuchenClick(Sender: TObject);
    procedure BerzeugenClick(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure EoptionenClick(Sender: TObject);

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


var
  Feingabe: TFeingabe;

implementation

uses Uoptionen;

var
  ini: TIniFile;
  SearchRec : TSearchRec;
  athema, atext, Dir, Dateiendung, datenbankname: string;


{$R *.DFM}

procedure TFeingabe.BdurchsuchenClick(Sender: TObject);
begin
  if SelectDirectory(Dir, [sdAllowCreate, sdPerformCreate, sdPrompt],SELDIRHELP) then
    Lpfad.Caption := Dir;
end;

procedure TFeingabe.BerzeugenClick(Sender: TObject);
var
 index: integer;
 FileExt: string;
begin
begin
  if Rendung_ja.Checked then
  FileExt:= '*.jpg'
  else
  FileExt:= '*.*';
  ListBox1.Clear;
  Dir := IncludeTrailingBackslash(Dir);
  ListBox1.Items.BeginUpdate;
  if FindFirst(Dir + FileExt, faAnyFile, SearchRec) = 0 then
  try
    ListBox1.Items.Add(ChangeFileExt(SearchRec.Name, ''));
    while FindNext(SearchRec) = 0 do
      ListBox1.Items.Add(ChangeFileExt(SearchRec.Name, ''));
  finally
    FindClose(SearchRec);
  end;
  ListBox1.Items.EndUpdate;

  athema := (Ethema.Text);
  atext := (Etext.Text);

  Mausgabe.Clear;
  Lzeilenzahl.caption:=IntToStr(ListBox1.Items.Count);
  for index := 0 to ListBox1.Items.Count -1 do
  Mausgabe.Lines.Add('INSERT INTO `'+datenbankname+'` ( `thema` , `name` , `text` ) VALUES ("'+athema+'", "'+ListBox1.Items.Strings[Index]+'", "'+atext+'");');


end;
end;

procedure TFeingabe.FormActivate(Sender: TObject);
begin
  ini:=TIniFile.create(ExtractFilePath(ParamStr(0))+
    'einstellungen.ini');
  try
    Lpfad.Caption:=ini.ReadString('Parent_Directory','1','');
    Dir:=Lpfad.Caption;
    Dateiendung:=ini.ReadString('Dateiendung','1','');
    datenbankname:=ini.ReadString('Datenbank_name','1','');
  finally
    ini.free;
  end;
Mausgabe.Clear;
Lendung.Caption:= 'Nur '+Dateiendung+' Dateien listen und '+Dateiendung+' entfernen?';
end;

procedure TFeingabe.EoptionenClick(Sender: TObject);
begin
Foptionen.ShowModal;
end;

end.

und das das zweite:

Delphi-Quellcode:

unit Uoptionen;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, IniFiles, FileCtrl;

const
  SELDIRHELP = 1000;
 

type
  TFoptionen = class(TForm)
    Label1: TLabel;
    Ename_datenbank: TEdit;
    Label2: TLabel;
    Eparentdirectory: TEdit;
    Bdurchsuchen: TButton;
    Label3: TLabel;
    Edatei_endung: TEdit;
    Bspeichern: TButton;
    Babbruch: TButton;
    procedure BspeichernClick(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure BabbruchClick(Sender: TObject);
    procedure BdurchsuchenClick(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Foptionen: TFoptionen;

implementation

var
  ini: TIniFile;
  Dir: string;
{$R *.DFM}



procedure TFoptionen.BspeichernClick(Sender: TObject);
begin
  ini:=TIniFile.create(ExtractFilePath(ParamStr(0))+
    'einstellungen.ini');
  try
    ini.WriteString('Datenbank_name','1', Ename_datenbank.Text);
    ini.WriteString('Parent_Directory','1', Eparentdirectory.Text);
    ini.WriteString('Dateiendung','1', Edatei_endung.Text);

  finally
    ini.free;
  end;
close;
end;

procedure TFoptionen.FormActivate(Sender: TObject);
begin
  ini:=TIniFile.create(ExtractFilePath(ParamStr(0))+
    'einstellungen.ini');
  try
    Ename_datenbank.text:=ini.ReadString('Datenbank_name','1','');
    Eparentdirectory.text:=ini.ReadString('Parent_Directory','1','');
    Edatei_endung.text:=ini.ReadString('Dateiendung','1','');
  finally
    ini.free;
  end;

end;

procedure TFoptionen.BabbruchClick(Sender: TObject);
begin
Foptionen.close;
end;

procedure TFoptionen.BdurchsuchenClick(Sender: TObject);
begin
Dir := Eparentdirectory.Text;
  if SelectDirectory(Dir, [sdAllowCreate, sdPerformCreate, sdPrompt],SELDIRHELP) then
    Eparentdirectory.Text := Dir;

end;

end.

So, ich hoffe, dass mir der lange Code verziehen wird, aber so ist's am verständlichsten...
gruß
Markus
PS: Im Anhang auch noch das Prog...