Witam!
Programuję w Delphi od jakiegoś czasu, ale teraz przyszło mi się zmierzyć z rekordami, nowymi typami i wskaźnikami - nie znam się na tym, oczywiście poczytałam o tym, jednak nadal mam problem - w momencie kompilacji wyskakuje błąd Expected ":" but "=" found w linii TElement = record czyli gdzie deklaruję strukturę.
Oto fragment mojego kodu:
unit MainUnit;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ComCtrls;
type
TMainForm = class(TForm)
PLMemo: TMemo;
...
SzukajButton: TButton;
TElement = record
Next : PElement; // wskaznik na nastepny element listy
PL : String;
...
Rok : Integer;
PElement = ^Element; // zadeklarowalam typ wskaznikowy
procedure Wczytaj(Sender: TObject);
procedure Zapisz(Sender: TObject; var Action: TCloseAction);
procedure SzukajButtonClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
Root : PElement; // poczatek listy - wskaznik
Last : PElement; // koniec listy - wskaznik
end;
var
MainForm: TMainForm;
implementation
uses SzukajUnit;
{$R *.dfm}
procedure TMainForm.Wczytaj(Sender: TObject);
...
end;
procedure TMainForm.Zapisz(Sender: TObject; var Action: TCloseAction);
begin
// zapisanie bazy danych
// posprzatanie listy
end;
procedure TMainForm.SzukajButtonClick(Sender: TObject);
begin
SzukajForm.Visible := True;
end;
end.
Program to generalnie baza filmów, ma wczytać z pliku txt bazę do listy jednokierunkowej i ją wyświetlić (jak na razie tyle). Niestety wcześniej nie miałam styczności ze wskaźnikami, listami i nowymi typami i dlatego już mam problemy. Jak zmienię znak = na : to występuje następny problem - czyli błąd nie leży w tym znaku, wydaje mi się, że jest gdzieś indziej.
Z góry dziękuję za pomoc i pozdrawiam,
Asia