AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren

Einfaches Listenprogramm mittels Zeigern

Ein Thema von Nathaniel · begonnen am 17. Jun 2012 · letzter Beitrag vom 17. Jun 2012
Antwort Antwort
Nathaniel

Registriert seit: 17. Jun 2012
11 Beiträge
 
#1

Einfaches Listenprogramm mittels Zeigern

  Alt 17. Jun 2012, 15:10
Hallo,

ich hatte vor gehabt, ein kleines Beipsielprogramm umzusetzen um das Prinzip der Zeigern und Listen richtig zu verstehen.
Dazu habe ich eine doppelt verkettete lineare Liste benutzt, weil diese besser in dem Programmkontext passt.

Kurzbeschreibung vom Programm

• Der Nutzer gibt den Vornamen und Nachnamen ein
• Diese Informationen werden in einer Liste gespeichert
• Es ist möglich hin und her zu wechseln mittels den Buttons "Vor" und "Weiter"
• Somit kann man vorherige Einträge einsehen

Wenn ich den Programmcode in einer Unit schreibe, dann funktioniert auch alles... Ich habe nur Probleme damit, es eine andere Unit zu transferieren, was ich aber gerne möchte!

Ich hatte wie gesagt vorher alles in der Main-Unit reingeschrieben und bin jetzt dabei es Schritt für Schritt auf die andere Unit auszulagern. Insofern sind noch einige Sachen in der Main.

Delphi-Quellcode:
unit UMain;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls,
  UTypes, UData;

type
  TForm1 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    EdVorname: TEdit;
    EdNachname: TEdit;
    BtnVor: TButton;
    BtnEinfuegen: TButton;
    BtnLoeschen: TButton;
    BtnWeiter: TButton;
    procedure BtnEinfuegenClick(Sender: TObject);
    procedure BtnWeiterClick(Sender: TObject);
    procedure BtnVorClick(Sender: TObject);
    procedure BtnLoeschenClick(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormCreate(Sender: TObject);

  private
    { Private-Deklarationen }
    Current: TElementPointer;
    procedure ShowCurrent;
    function getInformation:TInfo;
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

{ TForm1 }

procedure TForm1.BtnEinfuegenClick(Sender: TObject);
var TempElement:TElementPointer;
    info:TInfo;
begin
  InsertElement(getInformation); // In UData deklariert
end;


procedure TForm1.BtnVorClick(Sender: TObject);
begin
  if Current^.VorElement <> nil then // Wenn das vorherige Element NICHT leer ist, dann...
  begin
      Current^.Namen.Vorname := EdVorname.Text; // Lese den Namen aus und trage ins EdtFeld ein
      Current^.Namen.Nachname := EdNachname.Text;

      Current := Current^.VorElement; // Setze den Zeiger auf das vorherige (jetzt aktuelle) Element

      ShowCurrent; // Zeige die Veränderung

      BtnVor.Enabled:=Current^.VorElement <> nil;
      BtnWeiter.Enabled:=true;
  end
  else ShowMessage('Zugriffsverletzung auf vorderes Element!');

  ActiveControl:=EdVorname;
end;

procedure TForm1.BtnWeiterClick(Sender: TObject);
begin
  if Current^.NachElement <> nil then // Wenn das nächste Element NICHT leer ist, dann...
  begin
    Current^.Namen.Vorname:=EdVorname.Text; // Lese den Namen aus und trage ins EdtFeld ein
    Current^.Namen.Nachname:=EdNachname.Text;

    Current := Current^.NachElement; // Setze Zeiger auf aktuellem Element

    ShowCurrent; // Zeige Veränderungen

    BtnWeiter.Enabled:= Current^.NachElement <> nil;
    BtnVor.Enabled:=true;
  end
  else showMessage('Zugriffsverletzung auf nachfolgende Element!');
  ActiveControl := EdVorname;
end;

function TForm1.getInformation: TInfo;
begin
  getInformation.Vorname:=EdVorname.Text;
  getInformation.Nachname:=EdNachname.Text;
end;

procedure TForm1.ShowCurrent;
begin
  EdVorname.Text:=Current^.Namen.Vorname;
  EdNachname.Text:=Current^.Namen.Nachname;
end;

end.
Ich habe hier einige Prozeduren, welche hier nicht relevant sind (OnCreate) einfach weggelassen, um es übersichtlicher zu gestalten...

Delphi-Quellcode:
unit UData;

interface

uses SysUtils, UTypes;

function NewElement(info:TInfo): TElementPointer;
procedure InsertElement(info:TInfo);
procedure getNext;
procedure getPrevious;

implementation
var Current:TElementPointer;
{----------------------------- NewElement -----------------------------------}
function NewElement(info:TInfo): TElementPointer;
var
  TempElement:TElementPointer;
begin
  New(TempElement);
  TempElement^.Namen.Vorname:= info.Vorname;
  TempElement^.Namen.Nachname:= info.Nachname;

  TempElement^.VorElement:=nil;
  TempElement^.NachElement:=nil;

  NewElement:=TempElement;
end;

{----------------------------- InsertElement ---------------------------------}
procedure InsertElement(info:TInfo);
var TempElement:TElementPointer;
begin
  TempElement:=NewElement(info);
  if Current<>nil then
  begin
    TempElement^.NachElement:=Current;
    TempElement^.VorElement :=Current^.VorElement;
    Current^.VorElement:=TempElement;
    if TempElement^.VorElement<>nil then
       TempElement^.VorElement^.NachElement := TempElement;
  end;
  Current:=TempElement;
end;

{----------------------------- getNext ---------------------------------------}
procedure getNext;
begin
// Code
end;

{----------------------------- getPrevious -----------------------------------}
procedure getPrevious;
begin
// Code
end;

end.
Delphi-Quellcode:
unit UTypes;

interface


type
  TInfo = record
            Vorname: string[30];
            Nachname: string[30];
          end;
  TElementPointer = ^TListElement;
  TListElement = record
                      Namen: TInfo;
                      VorElement : TElementPointer;
                      NachElement: TElementPointer;
                  end;

implementation

end.
Problembeschreibung vom Programm

Ich kann völlig normal auf Einfügen klicken und die Prozedur InsertElement ausführen, womit ich ein neues Listenelement erzeuge und darin die Informationen aus den Editfeldern reinschreibe. Wenn ich nun aber zurückblättern möchte (oder vor) kommt die Exception "EAccessViolation". Wahrscheinlich ist die Lösung sehr einfach, allerdings kann ich es mir nicht erklären, weil ja eigentlich die Listenelemente exisitieren...
  Mit Zitat antworten Zitat
Benutzerbild von Aphton
Aphton

Registriert seit: 31. Mai 2009
1.198 Beiträge
 
Turbo Delphi für Win32
 
#2

AW: Einfaches Listenprogramm mittels Zeigern

  Alt 17. Jun 2012, 15:34
Ich glaube, dass Problem ist, dass du Current 2x definiert hast - 1x in beiden Units. Es wird aber hauptsächlich mit UData.Current gearbeitet...

Problemlösung: Entferne die Deklaration aus der UData Unit und gebe der Funktion InsertElement() Current als Parameter mit!
das Erkennen beginnt, wenn der Erkennende vom zu Erkennenden Abstand nimmt
MfG
  Mit Zitat antworten Zitat
Nathaniel

Registriert seit: 17. Jun 2012
11 Beiträge
 
#3

AW: Einfaches Listenprogramm mittels Zeigern

  Alt 17. Jun 2012, 15:43
Hallo,

danke für die Antwort, allerdings war diese nicht das Problem. Das Problem habe ich soeben gelöst bekommen und es lag daran, dass ich bei dem Wechsel zwischen den Namen mittels den BtnWeiter und BtnVor auf eine Speicheradresse zugegriffen habe, welche nicht existiert hat... Ich hab jetzt einfach die Funktion in UData "getNext" wie folgt deklariert:

Delphi-Quellcode:
procedure getNext(info:TInfo; var ausgabe:TInfo);
begin
// if Current^.VorElement <> nil then
  begin
      Current^.Namen.Vorname := info.Vorname;
      Current^.Namen.Nachname := info.Nachname;

      Current := Current^.NachElement;

      ausgabe.Vorname:=Current^.Namen.Vorname;
      ausgabe.Nachname:=Current^.Namen.Nachname;

  end
Also mittels Referenzparameter Ausgabe.
Diese Prozedur rufe ich auf wenn der BtnWeiter betätigt wurde:

Delphi-Quellcode:
procedure TForm1.BtnWeiterClick(Sender: TObject);
var aus:TInfo;
begin
      getNext(getInformation, aus);
      EdVorname.Text:=aus.Vorname;
      EdNachname.Text:=aus.Nachname;
end;
Danke trotzdem : )
  Mit Zitat antworten Zitat
Benutzerbild von Luckie
Luckie

Registriert seit: 29. Mai 2002
37.621 Beiträge
 
Delphi 2006 Professional
 
#4

AW: Einfaches Listenprogramm mittels Zeigern

  Alt 17. Jun 2012, 16:29
Vielleicht hilft das noch zum Verständnis: http://michael-puff.de/Programmierung/Delphi/Tutorials -> Listen_mit_Delphi.pdf
Michael
Ein Teil meines Codes würde euch verunsichern.
  Mit Zitat antworten Zitat
Nathaniel

Registriert seit: 17. Jun 2012
11 Beiträge
 
#5

AW: Einfaches Listenprogramm mittels Zeigern

  Alt 17. Jun 2012, 16:51
Vielen Dank, werde ich mir die Tage mal durchlesen.
  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 14:34 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