Hallo!

Ich habe eine Klasse geschrieben, welche beim (oder vor dem) Destroy folgenden Fehler ausgibt:

markieren

Code:

Im Projekt Project1.exe ist eine Exception der Klasse EInvalidPointer aufgetreten. Meldung: 'Ungültige Zeigeroperation'. Prozess wurde angehalten. Mit Einzelne Anweisung oder Start fortsetzen.

zusammenfalten · markieren

Delphi-Quellcode:

unit Flughafen;

interface

uses
  StdCtrls, ExtCtrls, Classes;

type
  TFlughafen = class
  private
    vLabel1: TLabel;
    vSearch: TTImer;
    vEnabled: Boolean;
    vInterval: Integer;
    vText: String;
    Actual: Array of Char;
    Zeiger: Integer;
    ActChar: Char;
    procedure SetEnabled(Status: Boolean);
    procedure SetInterval(Value: Integer);
    procedure SetText(Value: String);
    procedure Start;
    function GetStart(Character: Char): Char;
    procedure SearchTimer(Sender: TObject);
  public
    constructor Create(AOwner: TComponent);
    destructor Destroy; override;
    property Output: TLabel read vLabel1 write vLabel1;
    property Enabled: Boolean read vEnabled write SetEnabled;
    property Interval: Integer read vInterval write SetInterval;
    property Text: String read vText write SetText;
  end;

implementation

constructor TFlughafen.Create(AOwner: TComponent);
begin
  vSearch := TTimer.Create(AOwner);
  vSearch.OnTimer := SearchTimer;
  vSearch.Enabled := False;
  vSearch.Interval := 21;
end;

destructor TFlughafen.Destroy;
begin
  vSearch.Free;
  SetLength(Actual, 0);
end;

procedure TFlughafen.SetEnabled(Status: Boolean);

begin
  if (not vEnabled) and (Status) then
    vSearch.Enabled := True
  else if (not Status) then
    vSearch.Enabled := False;
  vEnabled := Status;
  if vEnabled then
    Start;
end;

procedure TFlughafen.SetInterval(Value: Integer);
begin
  vSearch.Interval := Value;
end;

procedure TFlughafen.SetText(Value: String);
begin
  vText := Value;
  Start;
end;

procedure TFlughafen.Start;
begin
  SetLength(Actual, Length(vText));
  Zeiger := 0;
  ActChar := GetStart(vText[Zeiger+1]);
end;

function TFlughafen.GetStart(Character: Char): Char;
begin
 case (Character) of
    #65..#90: result := #65;
   #97..#122: result := #97;
    #48..#57: result := #48;
         #32: result := #32;
      #0..#9: result := #0;
         #10: result := #10;
    #11..#31: result := #0;
    #33..#47: result := #33;
    #58..#64: result := #33;
    #91..#96: result := #91;
  else
    result := #123;
  end;
end;

procedure TFlughafen.SearchTimer(Sender: TObject);
var
  i: Integer;
begin
  Actual[Zeiger] := ActChar;
  Inc(ActChar);
  vLabel1.Caption := '';
  for i := 0 to Length(Actual) - 1 do
    vLabel1.Caption := vLabel1.Caption + Actual[i];
  if (Ord(vText[Zeiger+1]) < Ord(ActChar)) then
  begin
    Actual[Zeiger] := vText[Zeiger+1];
    Inc(Zeiger);
    ActChar := GetStart(vText[Zeiger+1]);
    if (Zeiger > Length(vText)) then
      vSearch.Enabled := False
  end;
end;

end.

Es geht eigentlich nur um den Fehler.
Kann auch sein, dass ich einen fatalen Fehler programmiert habe, bitte sagt mir das.
Danke schon mal.

Ergänz bitte die Überschrift. EInvalidPointer ist nicht sehr aussagekräftig.

Ich kann den Fehler nicht nachvollziehen.
Ausser einem fehlenden

markieren

Code:

Finalize(Actual);

statt dem

markieren

Code:

SetLength(Actual, 0);

im Destructor von TFlughafen sehe ich nix. Läuft bei mir nicht auf Fehler.

Nimm mal einen Text mit exakt zwanzig Zeichen (zB "Dies ist ein A Text.")...
Weiß nicht wieso das nur dann ist.

markieren

Code:

Output: Tlable;

wird weder erzeugt

markieren

Code:

.Create();

noch freigegeben/zerstört

markieren

Code:

.Free;/.Destroy;

.

Zitat von ste_ett:

markieren

Code:

Output: Tlable;

wird weder erzeugt

markieren

Code:

.Create();

noch freigegeben/zerstört

markieren

Code:

.Free;/.Destroy;

.

Aber das ist doch eine Eigenschaft, die auf vLabel zeigt.
Aufruf der Klasse:

markieren

Delphi-Quellcode:

procedure TMeineForm.MeineProcedure(Sender: TObject) {oder was auch immer};
var
  Flughafen1: TFlughafen;
begin
  Flughafen1 := TFlughafen.Create(Self);
  Flughafen1.Output := Label1; //Das Label kann man ja im Objektdesigner Designen
  Flughafen1.Enabled := True;
end;

EDIT:
Wenn der Text beim ersten Durchlauf der Klasse auf 20 Zeichen ist, dann stürzt das Programm mit der Fehlermeldung ab.
Wenn man beim 1. Durchlauf beispielsweise "Haben" als Text angibt, und dann erst einen 20-zeichen Text, dann ist es egal...

HÄ???

Da fehlt die Zuweisung für vText, somit ist vText immer leer und

markieren

Code:

  SetLength(Actual, Length(vText));
  Zeiger := 0;
  ActChar := GetStart(vText[Zeiger+1]);

führt immer zur Grenzüberschreitung des Arrays.

Ich würde an deiner Stelle Output: TLable im Constructor erzeugen

markieren

Code:

  Self.Output := TLabel.Create(Form1);
  Self.Output.Parent := Form1;
  Self.Output.Left := 100;
  Self.Output.Top := 100;
  Self.Output.Caption := 'Irgendwas';
  Self.Output.Show;

und im Destructor dann wieder zerstören.

markieren

Code:

Self.Output.Destroy;

Die procedure "Start" wird aber nur nach einer zuweisung von vText (aus SetText zB) aufgerufen....

Ich hab mal ein Projekt daraus erstellt. Wenn man einen Text wie zB "Sieben ist drei" übergibt (durch Enter wird gestartet), dann funktioniert alles wie erwartet.
Wenn man aber den Text, der standardmäßig drinnen ist, benutzt, dann hängt sich das Programm auf (ich spreche immer vom 1. Aufruf. Jeder weitere Aufruf ist egal, der funktioniert immer).

Zitat:

Wenn man aber den Text, der standardmäßig drinnen ist

Meinst du bei vText?
vText ist standardmäßig leer. ''
Um das zu verhindern, könntest du im Constructor vText setzen.

Zitat von ste_ett:

Zitat:

Wenn man aber den Text, der standardmäßig drinnen ist

Meinst du bei vText?
vText ist standardmäßig leer. ''
Um das zu verhindern, könntest du im Constructor vText setzen.

Ich meine in meinem Projekt.
Da ist der Standardtext nämlich "Dies ist ein Text.".