Ergebnis 1 bis 6 von 6

Thema: [DELPHI 6]Daten speichern und auslesen

Baum-Darstellung

Vorheriger Beitrag Vorheriger Beitrag   Nächster Beitrag Nächster Beitrag
  1. #3
    ok, ich versuchs mal so. aber ich denke,das das klappen müsste. nun hab ich aber erst mal das wichtigere Problem. Ich will das beim start innerhalb der form aufgerufene Frame "ändern" sprich dort ein anderes Frame einbinden, samt des Codes dieses anderen Frames. wie realisiere ich das? bzw unter welche funktion muss ich da suchen

    Borky

    EDIT: ok, das mit der INI-Datei funktioniert einwandfrei. nun hab ich aber ein anderes Problem. ich hab die ini-datei abspeichern lassen.
    ich öffne diese nun wieder über einen opendialog. funktioniert auch einwandfrei. wenn ich nun aber das probgram beende oder den frame, in dem die daten angezeigt werden, schließe. bekomme ich eine fehlermeldung.

    diesen fehler bekomm ich wenn ich den frame mit destroy schließe:


    und diesen, wenn ich das programm mit dem geöffneten frame beende:


    wenn ich jedoch erst den fram schließe (und nach ok klicken des fehlers) läuft das prog problemlos weiter und ich kann es auch ohne fehlermeldung normal beenden

    hier noch der code, mit dem ich die datei öffne und auslese:

    Code:
    procedure Tform_main.dat_lieg_openClick(Sender: TObject);
    begin
    frm_lieg_open := Tfrm_lieg_open.Create( nil );
    frm_lieg_open.Parent := frm_main;
    frame := 3;
    frm_lieg_open.open_lgs.Create(self);
    frm_lieg_open.open_lgs.InitialDir := 'liegenschaften/';
    frm_lieg_open.open_lgs.Options := [ofFileMustExist];
    frm_lieg_open.open_lgs.Filter := 'Liegenschaften|*.lgs';
    frm_lieg_open.open_lgs.FilterIndex := 1;
    frm_lieg_open.open_lgs.Execute;
    
    ini := TIniFile.Create(frm_lieg_open.open_lgs.FileName);
    
    frm_lieg_open.open_lgs.Destroy;
    
    frm_lieg_open.lbl_liegenr_anz.Caption := ini.ReadString('Liegenschaft','Liegenschaftsnummer','');
    frm_lieg_open.lbl_verm_anz.Caption := ini.ReadString('Liegenschaft','Vermieter','');
    frm_lieg_open.lbl_adr_anz.Caption := ini.ReadString('Liegenschaft','Straße','');
    frm_lieg_open.lbl_plz_anz.Caption := ini.ReadString('Liegenschaft','PLZ','');
    frm_lieg_open.lbl_ort_anz.Caption := ini.ReadString('Liegenschaft','Ort','');
    
    ini.Free;
    
    dat_lieg_close.Enabled := True;
    end;
    der fehler kommt gleichermassen, wenn ich den dialog mit
    frm_lieg_open.open_lgs.Destroy;
    bzw.
    frm_lieg_open.open_lgs.Free;
    freigebe

    mfg Borky

    Geändert von Borky (08.01.2007 um 01:07 Uhr)

Berechtigungen

  • Neue Themen erstellen: Nein
  • Themen beantworten: Nein
  • Anhänge hochladen: Nein
  • Beiträge bearbeiten: Nein
  •