AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren

Problem mit Klassen

Ein Thema von Cöster · begonnen am 30. Aug 2006 · letzter Beitrag vom 31. Aug 2006
 
Cöster

Registriert seit: 6. Jun 2006
589 Beiträge
 
Turbo Delphi für Win32
 
#1

Problem mit Klassen

  Alt 30. Aug 2006, 20:17
Hallöle!

Ich hab mir vorgenommen, mein Programm aus mehreren Klassen bestehen zu lassen. Bisher gibt es nur 2 Klassen: Unit1 (die Hauptunit) und Bild.

Da ich zum ersten Mal mit mehreren Klassen arbeite, gibt es auch schon das erste Problem.
Hier erstmal der (noch kurze) Quelltext der Unit Bild:

Delphi-Quellcode:
unit Bild;

interface

uses
  Graphics, Dialogs;

type
  TBild = class
  private
    FCurrentFile: String;
  public
    procedure Oeffnen;
  end;

implementation

uses Unit1;

procedure TBild.Oeffnen;
begin
  If Form1.OpenPictureDialog1.Execute then
  begin
    self.FCurrentFile := Form1.OpenPictureDialog1.FileName;
    Form1.ImMain.Picture.LoadFromFile(Form1.OpenPictureDialog1.FileName);
    Form1.ImMain.Picture.Bitmap.PixelFormat := pf24Bit;
    Form1.ImMain.Visible := True;
  end;
end;
Die Klasse dient also bisher nur dazu, ein Picture zu öffnen und sich seinen Dateinamen zu merken, damit man beim Speichern nicht immer auf "Speichern unter" klicken muss.
Beim Öffnen eines Bitmaps tritt nun eine Zugriffsverletzung auf. Wenn ich die Zeile self.FCurrentFile := Form1.OpenPictureDialog1.FileName; weglasse, tritt der Fehler nicht auf.

Kann mir jemand helfen? Falls es eine bessere Möglichkeit gibt, die Dateinamen zu speichern, wäre ich natürlich auch daran interessiert.

Danke!
  Mit Zitat antworten Zitat
 

Themen-Optionen Thema durchsuchen
Thema durchsuchen:

Erweiterte Suche
Ansicht

Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 12:43 Uhr.
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz