Bildpfad eines TImages abspeichern

[TiGü]

Die Lösung ist total simpel, aber es würde für dich als Auszubildenden keinen Lerneffekt geben, wenn wir dir die fertige Lösung hinknallen.

Bitte kommentiere deinen Quelltext mal Zeile für Zeile: WAS und WARUM machst du in der jeweiligen Zeile.
Anhand dessen können wir dir Schritt für Schritt helfen.

[Luca Haas]

Delphi-Quellcode:

procedure TForm1.Image1DblClick(Sender: TObject);
begin
  Image1.Stretch := true; // Bildgröße anpassen
  if OpenPictureDialog1.Execute then  //Abfrage ob OpenPictureDialog ausgeführt wurde
  begin
    Image1.Picture.LoadFromFile(OpenPictureDialog1.filename); //laden des Bildes aus dem OpenPictureDialog
    KST_LagerbewertungQuery.Edit; //Query Bearbeitung Beginnen
    Image1.Picture.SaveToFile(KST_LagerbewertungQuery.FieldByName('Bildpfad').AsString); //Bildpfad abspeichenr ?! :?:
    KST_LagerbewertungQuery.Post; //Query Bearbeitung beenden
  end;
end;

[TiGü]

Ok, jetzt bitte die folgende Zeile mithilfe einer Zwischenvariablen auflösen:

Image1.Picture.SaveToFile(KST_LagerbewertungQuery.FieldByName('Bildpfad').AsString);

[Luca Haas]

Meinst du sowas wie

Delphi-Quellcode:

 
a := KST_LagerbewertungQuery.FieldByName('Bildpfad').AsString;
Image1.Picture.SavetoFile(a);

Bin mir nicht sicher ob ich weiß was Zwischenvariablen sind

[Glados]

Zitat:

Ok, jetzt bitte die folgende Zeile mithilfe einer Zwischenvariablen auflösen:

Ok, und jetzt gebe deinen Variablen bitte anständige und verständliche Namen

[Luca Haas]

Delphi-Quellcode:

Bild := KST_LagerbewertungQuery.FieldByName('Bildpfad').AsString;
Image1.Picture.SavetoFile(Bild);

Versteh ich grade was falsch, es ist doch egal wie die Variablen heißen, oder nicht ?

[Glados]

Zitat:

es ist doch egal wie die Variablen heißen, oder nicht ?

Nein eben nicht. Es gehört zum guten Ton bzw. zu gutem Code auch verständliche Variablennamen zu verwenden.

Zitat:

Allerdings habe ich das Problem, dass ich alles nur als "TPicture" und nicht als richtigen Pfad speichere

Dazu habe ich eine Frage. Wieso bist du der Meinung du speicherst ein "TPicture" ab? Was ist deiner Meinung nach denn ein TPicture und was kommt tatsächlich auf deiner Festplatte an?

[TiGü]

Zitat von Luca Haas:

Delphi-Quellcode:

Bild := KST_LagerbewertungQuery.FieldByName('Bildpfad').AsString;
Image1.Picture.SavetoFile(Bild);

Versteh ich grade was falsch, es ist doch egal wie die Variablen heißen, oder nicht ?

Für den Compiler und dem Computer ist es egal.
Aber nicht für dich, dein zukünftiges ich in zwei Monaten wenn du den Quelltext wieder anschaust und erst recht nicht für deinen Kollegen, der sich deinen Quelltext anschauen muss.

Ok, jetzt erkläre mit deinen eigenen Worten, was genau der Aufruf Image1.Picture.SavetoFile bewirkt?
Was genau wird in SaveToFile übergeben?

[p80286]

Zitat von Luca Haas:

Delphi-Quellcode:

Bild := KST_LagerbewertungQuery.FieldByName('Bildpfad').AsString;
Image1.Picture.SavetoFile(Bild);

Versteh ich grade was falsch, es ist doch egal wie die Variablen heißen, oder nicht ?

Ja, im Prinzip ist es egal wie die Variable heißt, nur , wenn eine Variable "Bild" heißt, und die andere "Bildpfad" oder "BildDateiName" welchen Inhalt erwartet man dann?

Gruß
K-H