Nicht nachzuvollziehende EAccessViolation

[DeddyH]

IMHO wäre das Ganze um Längen einfacher zu verwalten, wenn man aus TV2Request eine Klasse macht (zumindest solange eine Objektinstanz, hier eine Stringliste, enthalten ist) und aus FV2Requests eine TObjectList.

[Bjoerk]

Bei jedem Zugriff auf GetItem wird eine StringList erzeugt. Das ist gelinde gesagt sehr unschön. Besser die entsprechende (schon erzeugte) Stringlist als Parameter mitschicken.

[genesisv]

Moment... Die Stringlist wird nur erzeugt wenn die Liste erhöht wird, also nur 1x pro Item. Falls das Item vorhanden ist springt die Funktion ja mit exit raus.

[DeddyH]

An Deiner Stelle würde ich zunächst einmal schauen, ob man den Code nicht übersichtlicher gestalten kann (z.B. mit ein paar Unterfunktionen). Und dann wie gesagt aus dem Record eine Klasse machen und über TObjectList verwalten, dann ist auch die Klasse für die enthaltene Stringliste verantwortlich, von außen würde ich den direkten Zugriff verweigern, indem man die Stringliste verbirgt und lediglich Schnittstellen in Form von Methoden und/oder Properties bereitstellt.

[Bjoerk]

Zitat von genesisv:

Moment... Die Stringlist wird nur erzeugt wenn die Liste erhöht wird, also nur 1x pro Item. Falls das Item vorhanden ist springt die Funktion ja mit exit raus.

Hatte ich gesehen. Trotzdem. Dann kann Create und Fee auf derselben Ebene stattfinden.(Siehe Assigns bei Delphi, sind immer Proceduren).

// Edit: Und CLearItems (sinngemäß):

Delphi-Quellcode:

procedure TFormHTTPV2.DelItem(I: integer);
begin
  FV2Requests[I].RequestVars.Free;
  SetLength(FV2Requests, Length(FV2Requests) - 1);
end;

procedure TFormHTTPV2.ClearItems;
begin
  while Length(FV2Requests) > 0 do DelItem(Length(FV2Requests)-1);
end;

// Edit2: Oder über TList:

Delphi-Quellcode:

unit uTListBeispielUnit;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TV2Request = record
    RequestType: TV2RequestType;
    Res: integer;
    URL: string;
    LocalFile: string;
    HTTPContent: string;
    RequestVars: TStringList;
  end;
  TV2RequestList = class (TList)
    function GetItem (const Index: integer): TV2Request;
    procedure AddItem (const U: TV2Request);
    procedure InsItem (const Index: integer; const U: TV2Request);
    procedure DelItem (const Index: integer);
    procedure SetItem (const Index: integer; const U: TV2Request);
    procedure ClearList;
  public
    destructor Destroy; override;
  end;

  TForm1 = class(TForm)
    Button1: TButton;
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  end;

var
  Form1: TForm1;
  List: TV2RequestList;

implementation

{$R *.dfm}

destructor TV2RequestList.Destroy;
begin
  ClearList;
  inherited;
end;

procedure TV2RequestList.ClearList;
begin
  while Count > 0 do delItem(Count-1);
end;

function TV2RequestList.GetItem (const Index: integer): TV2Request;
var
  V: ^TV2Request;
begin
  V:= Items[Index];
  Result:= V^;
end;

procedure TV2RequestList.SetItem (const Index: integer; const U: TV2Request);
var
  V: ^TV2Request;
begin
  V:= Items[Index];
  V^:= U;
end;

procedure TV2RequestList.AddItem (const U: TV2Request);
var
  V: ^TV2Request;
begin
  New (V);
  V^:= U;
  V.RequestVars:= TStringList.Create;
  Add(V);
end;

procedure TV2RequestList.InsItem (const Index: integer; const U: TV2Request);
var
  V: ^TV2Request;
begin
  New (V);
  V^:= U;
  V.RequestVars:= TStringList.Create;
  Insert(Index, V);
end;

procedure TV2RequestList.DelItem (const Index: integer);
var
  V: ^TV2Request;
begin
  V:= Items[Index];
  V.RequestVars.Free;
  Dispose(V);
  Delete(Index);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  List:= TV2RequestList.Create;
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
  List.Free;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  I: integer;
  Request: TV2Request;
begin
  for I:= 1 to 10 do
    List.AddItem(Request);
end;

end.