Hjælp til TStringLis

Do erklærer den bare under public. Så kan du bruge den hvordom helst.

Så skal du bare i de andre enheder bruge den enhed hvor den er erklæret:

uses mp3playermain;

eksempelvis

kan du ik give et kode eksempel?? jeg ved ikke hvordan jeg erklær public

Din ene enhed: her kan man kalde procedure overalt:

unit Mp3Player;

interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;
  private
    { Private declarations }
  public
    { Public declarations }
    //Her erklærer du procedure og funktioner public
      procedure Button1Click(Sender: TObject);
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
begin
  ShellExecute(self.WindowHandle,'open','www.hotmail.com',nil,nil, SW_SHOWNORMAL);
  close;
end;

end.

I din anden skriver du så under uses:

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, MPlayer, ShellApi, Mp3Player; //<- her

Så kan du kalde den med:

Mp3Player.button1click([..]) eller i dit tilfælde

Mp3Player.playlist.

Hov. Jeg stener lidt. Hvorfor erklærer du TStrinlisten inde i en funktion. Så er den jo kun variable inden for den funktion. Hvis du istedet erklærer den under public ksn du bruge den overalt.

jeg tror ikke du har forstået hvad jeg mener :) jeg har kun en unit, du vil have mig til at oprette en ny unit?? jeg vil bare erklær en TStringList som kan bruges i alle mine functions

nu stener jeg hvis :) ja dit sidste indlæg er rigtigt.

jeg vil erklær den under public, men ved ikke hvordan

Du kan bare nøjes med at erklære den udenfor funktionen så:

unit Mp3Player;

interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;
  private
    { Private declarations }
  public
    { Public declarations }
    //Her erklærer du procedure og funktioner public
      procedure Button1Click(Sender: TObject);
  end;

var
  Form1: TForm1;
  playlist: TStringList; //<----- Her

implementation

{$R *.DFM}

[..]

end.

Ja men det er jo ikke nok bare at erklære den, det ville også være ganske smart at oprette den:


unit DinUnit;

interface

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

type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  playlist: TStringList;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
  playlist := TStringList.Create;
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  playlist.Free;
end;

end.

xmasman: Du laver en global variabel i et objektorienteret udviklingssprog... Det er omtrent ligeså grimt og ildeset som at bruge Goto (men hvis det løser opgaven..)

Jeg ville vælge den "frelste" version i stedet:

type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject); // Bruger ikke FormClose, men OnDestroy
  private
    fPlayList : TStringList; // Foranstillet f på private variable
  public
    property PlayList : TStringList read fPlayList;
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
  fPlaylist := TStringList.Create;
end;

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

Forskellen er at den nu er indeholdt i formens objekt som en privat liste; mener det kaldes indkapsling. Samtidig offentliggør jeg den via en readonly-property.

Det er nu synlig i hele formen, mens andre kan tilgå den via Form1.PlayList

En sidste mulighed er at placere stringlisten for sig i en separat unit således at den er en selvstændig instans. Så kunne man oprette og slette den via initialization og finalization

Unit GlobalPlaylistUnit;

uses
  Classes;

var
  PlayList : TStringList;

implementation

initialization
  PlayList := TStringList.Create;

finalization
  PlayList.Free;

end.

Denne løsning plejer jeg at bruge til at indeholde programmets indstillinger (læses ind ved opstart og skrives igen ved afslut)

x-masman hvis du lige lavet et svar så får i 20 point hver, da alle 3 forslag virker

Fint okay