Habe richtig Probleme mit meiner Datenbank...

[SteffenG]

Ok, das hat auch nichts gebracht... ich poste jetzt den relevanten Quelltext von dem programm mit den 2 Forularen:

Unit1:

Delphi-Quellcode:

var
  Form1: TForm1;
  tuning, allginf, shops, repa: String;
  data: TStringList;

/...

procedure TForm1.ListBox2Click(Sender: TObject);
var A,T,S,R: String;
begin
  A := table2.FieldByName('Allgemeine Informationen').AsString;
  T := table2.FieldByName('Tuninganleitungen').AsString;
  S := table2.FieldByName('Shops').AsSTring;
  R := table2.FieldByName('Reparaturanleitungen').AsString;
  if A = '' then Button1. Enabled := false else allginf := A;
  if T = '' then Button2. Enabled := false else tuning := T;
  if S = '' then Button3. Enabled := false else shops := S;
  if R = '' then Button4. Enabled := false else repa := R;
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
var datei: String;
begin
  data := TStringList.Create;
  datei := ExtractFilePath(Application.ExeName);
  if data.GetText <> '' then
  data.clear;
  data.SaveToFile(datei+'temp.mmr');
end;

procedure neufenster(artv, art: String; data: TStringList);
var datei: String;
begin
  datei := ExtractFilePath(Application.Exename);
  data := TStringList.Create;
  data.Clear;
  data.add(artv);
  data.SaveToFile(datei+'temp.mmr');
  if art = 'allginf' then
  Form2.ShowModal;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  neufenster(allginf, 'allginf', data);
end;

Unit2:

Delphi-Quellcode:

/...

var
  Form2: TForm2;
  temp: TStringList;
  datei: String;

implementation

uses Unit1;

{$R *.DFM}

procedure TForm2.Button1Click(Sender: TObject);
var info, Pfad: String;
begin
  pfad := ExtractFilePath(Application.Exename);
  temp := TStringList.Create;
  temp.LoadFromFile(Pfad+'temp.mmr');
  datei := temp.GetText;
  Edit1.Text := datei;

  table1.first;
  info := table1.FieldByName(datei).AsString;
  Edit2.Text := info;
end;

end.

Das müsste alles relevante sein. Mal sehen, ob ich heute noch weiterkomme... Eigentlich dachte ich, dass ich heute nochmal richtig schön Zeit hätte, ein wenig weiter zu programmieren. Naja, mal sehen