Habe richtig Probleme mit meiner Datenbank...

[marabu]

Steffen,

öffne die Datei "temp.mnr" mit NotePad und gehe in den Speichern-Unter Dialog. Wenn da bei Codierung nicht ANSI steht, dann passe es an.

marabu

[SteffenG]

Zitat von marabu:

Steffen,

öffne die Datei "temp.mnr" mit NotePad und gehe in den Speichern-Unter Dialog. Wenn da bei Codierung nicht ANSI steht, dann passe es an.

marabu

ANSI war eingestellt.

Ich habe jetzt schon fogendes probiert:

Delphi-Quellcode:

if datei = 'spalteeins' then
Showmessage('OK');

Da zeigt er mir auch OK an!

Das heißt jetzt, das in der Variablen datei wirklich das drinnen steht, was da reingehört, nämlich 'spalteeins'. Wenn ich der Variablen datei in Button2.Click am Anfang nochmal 'spalteeins' zuweise geht es. Wenn er aber den Wert 'spalteeins' über die temp.mmr bekommt, funktioniert es plötzlich nicht mehr, obwohl es exakt den gleichen wert hat... Ich Verstehe das einfach nicht mehr...

Ich meine das muss eigentlich gehen...

[marabu]

Versuche mal eine Minimalanwendung zu erstellen und stelle den Source und die Hilfsdatei hier ein, damit man den Code mal im Zusammenhang sieht und den Fehler nachvollziehen kann. Kann ja nicht mehr als 50 Zeilen sein. Ruckzuck ist das Problem gelöst - wetten dass?

marabu

[SteffenG]

Zitat von marabu:

Versuche mal eine Minimalanwendung zu erstellen und stelle den Source und die Hilfsdatei hier ein, damit man den Code mal im Zusammenhang sieht und den Fehler nachvollziehen kann. Kann ja nicht mehr als 50 Zeilen sein. Ruckzuck ist das Problem gelöst - wetten dass?

marabu

Ich versuche gerade das ganze nicht mit einer 2. Anwendung sondern mit einem 2. Formular in die Tat umzusetzen. Sollte mir auch das nicht gelingen, werde ich die Minimalanwendung schreiben und hier hineinsetzen.

[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

[mkinzler]

Bitte temp.GetText durch temp.strings[0] ersetze sonst hast du wieder die beiden Pipes ('||') am Ende.

[SteffenG]

Zitat von mkinzler:

Bitte temp.GetText durch temp.strings[0] ersetze sonst hast du wieder die beiden Pipes ('||') am Ende.

Ich glaube das wars! ! Ich bin mir noch nicht ganz sicher, aber ich glaube jetzt gehts!
Ich werde jetzt noch ein bischen weiterschreiben, um zu sehen, obs wirklich alles geht, aber ich denke schon!

Vielen Dank erstmal! ! !