1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:

var Adressdaten : textfile;
begin
if DBSave.Execute then
begin
  assignfile(Adressdaten,DBSave.Filename+'.txt');
  rewrite(Adressdaten);
  TAdressdaten.FieldByName('Nachname').AsString := DBEdit1.Text;
  TAdressdaten.FieldByName('Vorname').AsString := DBEdit2.Text;
  TAdressdaten.FieldValues['Geburtsdatum'] := DBEdit3.Text;
  TAdressdaten.FieldByName('E-mail').AsString := DBEdit4.Text;
  TAdressdaten.FieldByName('Telefonnummer').AsString := DBEdit5.Text;
  TAdressdaten.FieldByName('Handy Nummer').AsString := DBEdit6.Text;
  TAdressdaten.FieldByName('Straße').AsString := DBEdit7.Text;
  TAdressdaten.FieldByName('Hausnummer').AsString := DBEdit8.Text;
  TAdressdaten.FieldByName('PLZ').AsString := DBEdit9.Text;
  TAdressdaten.FieldByName('Wohnort').AsString := DBEdit10.Text;
  closefile(Adressdaten);
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:

procedure TForm1.Button3Click(Sender: TObject);
var i : integer;
    f : textfile;
    dsatz: string;
begin
if savedialog1.Execute then
begin
  assignfile(f,savedialog1.filename);
  rewrite(f);
  for i:= 0 to Adressliste.Count -1 do
  begin
    dsatz:='';
    dsatz:= (inttostr(i+1)+', '+ TLogin(Adressliste.Objects[i]).DBEdit1+', '+
    Tlogin(Adressliste.Objects[i]).DBEdit2+', '+
    writeln(f,dsatz);
  end;
  closefile(f);
end;
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:

//******************************************************************************
//******************************* Daten exportieren ****************************
//******************************************************************************
procedure ExportCSV;
var
  ProgPath, KopfZeile: string;
  DateiOut: Textfile;
  Kopf: Boolean;

begin
  Kopf := True;
  ProgPath := ExtractFilePath(ParamStr(0));

  KopfZeile := 'Name; Vorname; Ort; PLZ; Strasse';
  AssignFile(DateiOut, ProgPath + 'Export.csv');
  try
    rewrite(DateiOut);

    if Kopf then WriteLn(DateiOut, KopfZeile);
    QWork.First;
    while not QWork.eof do
      begin
        Write(DateiOut,   QWork.FieldByName('Name').AsString + ';');
        Write(DateiOut,   QWork.FieldByName('Vorname').AsString + ';');
        Write(DateiOut,   QWork.FieldByName('Ort').AsString + ';');
        Write(DateiOut,   QWork.FieldByName('PLZ').AsString + ';');
        WriteLn(DateiOut, QWork.FieldByName('Strasse').AsString );

        QWork.Next;
      end;
  finally
    CloseFile(DateiOut);
  end;
end;                    

1:
2:
3:
4:
5:
6:
7:

uses ...ComObj;
var cat: OLEVariant;
begin
  cat:=CreateOleObject('ADOX.Catalog');
  cat.Create('Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\test.mdb');
  cat:=unassigned;
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:

uses {..,}Variants, ComObj{,..}; 
//.. 
const 
   dbVersion10   = 1; 
   dbVersion11   = 8; 
   dbVersion20   = 16; 
   dbVersion30   = 32; 
   dbVersion40   = 64; 

function CreateDB(const FileName: String; const Version: Integer; DelIfExists: Boolean = False): String; 
var 
   DBEngine, 
   Workspace, 
   Database  : OleVariant; 
   s         : String; 
const 
   dbLangGeneral = ';LANGID=0x0409;'; 
begin 
   Result  := ''; 
   if FileExists(FileName) And DelIfExists then 
      DeleteFile(FileName); 
   s       := dbLangGeneral + 'CP=' + IntToStr(GetACP()) + ';COUNTRY=0'; 
   DBEngine:= CreateOleObject('DAO.DBEngine.36'); 
   try 
      try 
         Workspace := DBEngine.Workspaces[0]; 
         Database  := Workspace.CreateDatabase(FileName, s, Version); 
         Database.Close; 
         Workspace.Close; 
      except 
         On E: Exception do 
            Result := E.Message; 
      end; 
   finally 
      Database  := NULL; 
      Workspace := NULL; 
      DBEngine  := NULL; 
   end; 
end; 

procedure TForm1.BtnDBNeu.Click(Sender: TObject); 
begin 
   CreateDB('test.mdb', dbVersion20); 
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:

procedure CreateTable;
const
  cCreateKonten = 'CREATE TABLE Konten('
    + 'KontoNr char(5) PRIMARY KEY,'
    + 'Beschriftung char(50),'
    + 'KontenTyp char(1),'
    + 'SH char(1),'
    + 'Land char(30),'
    + 'USTID char(20))';

  cCreateWaehrung = 'CREATE TABLE Waehrung('
    + 'Nr AutoInc PRIMARY KEY,'
    + 'Beschreibung char(30),'
    + 'Eurokurs double,'
    + 'EuroSt double,'
    + 'EuLand char(2),'
    + 'BasisWBetrag double,'
    + 'BasisWKennung integer)';

begin
  Con1.Active:=True; // Datenbank aktivieren
  
  QKonten.SQL.Text:=cCreateKonten; // Tabelle Konten erzeugen
  QKonten.ExecSQL; // Da keine Daten zurückgegeben werden ExecSQL ausführen

  QWaehrung.SQL.Text:=cCreateWaehrung; // Tabelle Waehrung erzeugen
  QWaehrung.ExecSQL; // Da keine Daten zurückgegeben werden ExecSQL ausführen
    
  QKonten.SQL.Text := 'Select * From Konten'; // Daten in Konten Selektieren
  QKonten.open; // Hier werden Daten zurückgegeben, daher open ausführen
  QWaehrung.SQL.Text := 'Select * From Waehrung'; // Daten in Waehrung Selektieren
  QWaehrung.open; // Hier werden Daten zurückgegeben, daher open ausführen 
End;                    

1:
2:

Query.SQL.Text:='Select * from Tabellenname order by feldname';
Query.open;                    

1:

readln(ADOQuery1.FieldByName('Bild').asstring);                    

1:

writeln(ADOQuery1.FieldByName('Bild').asstring);                    

1:
2:

ReadLn(F,ADOQuery1.FieldByName('Bild').asstring));
WriteLn(F,ADOQuery1.FieldByName('Bild').asstring));                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;
    OpenDialog1: TOpenDialog;
    ListBox1: TListBox;
    procedure Button1Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;
  Function GetFeld(a : String; Var z : Integer) : String;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
Var ProgPath ,a , Konto, SKD, BEschreibung, Land, USTID: String;
    Datei : Textfile;
    Kopf : Boolean;
    z : Integer;
begin
  Kopf := True;
  ProgPath:=ExtractFilePath(paramstr(0));
  opendialog1.InitialDir := ProgPath;
  Opendialog1.Execute;
  AssignFile(Datei, Opendialog1.FileName);
  try
    reset(Datei);
  except
    exit;
  end;
  If Kopf then readln(Datei,a); // Wenn Datei eine Kopfzeile hat, dann erst einmal lesen. (Feldnamenliste)
  While not EOF(Datei) do
    Begin
     z := 1;
     readln(Datei,a);
     Konto := GetFeld(a,z);
     SKD := GetFeld(a,z);
     Beschreibung := GetFeld(a,z);
     Land := GetFeld(a,z);
     USTID := GetFeld(a,z);
     Listbox1.items.add(Konto+ '   '+ SKD + '   '+ Beschreibung + '   '+ Land + '   '+ USTID);
    End;
end;



Function GetFeld(a : String; Var z : Integer) : String;
Begin
  Result := '';
  While z <> Length(a) do
    If a[z] <> ';' then
      Begin
        Result := Result + a[z];
        inc(z);
      End
    Else
      Begin
        inc(z);
        Exit;
      End;

End;


end.                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:

procedure TForm1.Button2Click(Sender: TObject);
var
  ProgPath, KopfZeile: string;
  DateiOut: Textfile;
  Kopf: Boolean;
begin
  Kopf := True;
  ProgPath := ExtractFilePath(ParamStr(0));
  KopfZeile := 'ID; Vorname; Nachname; Geburtsdatum; Strasse; Hausnummer; PLZ; Wohnort; E-Mail; Telefonnummer; Handy Nummer; Bild';
  AssignFile(DateiOut, ProgPath + 'Adressdaten.csv');
  try
    rewrite(DateiOut);

    if Kopf then WriteLn(DateiOut, KopfZeile);
    ADOQuery1.First;
    while not ADOQuery1.eof do
      begin
        Write(DateiOut,   ADOQuery1.FieldByName('ID').AsString + ';');
        Write(DateiOut,   ADOQuery1.FieldByName('Vorname').AsString + ';');
        Write(DateiOut,   ADOQuery1.FieldByName('Nachname').AsString + ';');
        Write(DateiOut,   ADOQuery1.FieldByName('Geburtsdatum') + ';'); 
        Write(DateiOut,   ADOQuery1.FieldByName('Straße').AsString + ';');
        Write(DateiOut,   ADOQuery1.FieldByName('Hausnummer').AsString + ';');
        Write(DateiOut,   ADOQuery1.FieldByName('PLZ').AsString + ';');
        Write(DateiOut,   ADOQuery1.FieldByName('Wohnort').AsString + ';');
        Write(DateiOut,   ADOQuery1.FieldByName('E-Mail').AsString + ';');
        Write(DateiOut,   ADOQuery1.FieldByName('Telefonnummer').AsString + ';');
        Write(DateiOut,   ADOQuery1.FieldByName('Handy Nummer').AsString + ';');
        WriteLn(DateiOut, ADOQuery1.FieldByName('Bild').AsString );
        ADOQuery1.Next;
      end;
  finally
    CloseFile(DateiOut);
  end;
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:

procedure TForm1.Button3Click(Sender: TObject);
begin
 try
  if OpenPicture.Execute then
     Image1.Picture.LoadFromFile(OpenPicture.FileName);
     ADOQuery1.Edit;
     OpenPicture.FileName := DBEDitBild.Text;
     ADOQuery1.Post;
 except
    ShowMessage('Bild konnte nicht geöffnet werden!');
end;
end;                    

1:

if FileExists('DereingegebeneName') then                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

procedure TForm1.FormShow(Sender: TObject);
begin
Adoquery1.Open;
if Dbeditbild.Text = '' then
Image1.Picture.LoadFromFile('KeinBild.bmp')
else
if FileExists(Dbeditbild.Text) then
Image1.Picture.LoadFromFile(DBEditBild.Text)
else
form1.Show
end;                    

1:
2:

OpenFileDialog.execute;
DBEdit1.Text:=OpenFileDialog.Filname;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:

procedure TForm1.FormShow(Sender: TObject);  
begin  

///////////// Hier eventuell noch das Standard Select Statement mit einbauen, der Übersichlichkeit halber und wenn man mal eine andere Selektion braucht, ist es hier im Quelltext am besten aufgehoben und damit auch gleich dokumentiert was man ausgewählt hat.
ADOQuery1.SQL.Text:='Select * From Adressen oder by Name';

Adoquery1.Open;  
if Dbeditbild.Text = '' then  
Image1.Picture.LoadFromFile('KeinBild.bmp')  
else  
if FileExists(Dbeditbild.Text) then  
Image1.Picture.LoadFromFile(DBEditBild.Text)  
else  

form1.Show  ///////////// Was soll das, versuchst Du hier eine Endlosschleife zu produzieren, du befindest dich bereits in Form1.Show, Wenn kein Dateiname da ist, dann eben Dein "KeinBild.bmp" anzeigen.

end;