Проблема с созданием класса

[Arkuz]

Здравствуйте.
Никогда не имел дела с классами. Всё как-то процедурно. Пытался, но вот ничего не найду подходящего чтобы понять как всё это делается...

Мне нужно сделать парсер файла.

TMyclass=class
public
  constructor Create(FileName)
  function GetString(N: Integer): WideString;
end;

Вот я пытался написать, подскажите где я неправильно делаю...

constructor TMyclass.Create(FileName: String);
var
 str_tmp:WideString;
 k:integer;
begin
 if not FileExists(FileName)
  then ShowMessage('Файл '+FileName+' не существует')
  else
     try
       Count:=0;
       k:=0;
       AssignFile(InFile,FileName);
       Reset(InFile);
       while not InFile.Eof do
        begin
          inc(Count);
          Readln(InFile,str_tmp);
        end;
       SetLength(MasStr,Count);
       while not InFile.Eof do
        begin
          Readln(InFile,MasStr[k]);
          inc(k);
        end;
     except
       CloseFile(InFile);
       MasStr:=nil;
       ShowMessage('Ошибка при работе с файлом '+FileName);
     end;
end;

Возникают вот такие ошибки:

[Error] TLanguageParser_class.pas(36): Record, object or class type required
  [Error] TLanguageParser_class.pas(38): Record, object or class type required
  [Fatal Error] Unit1.pas(7): Could not compile used unit 'TLanguageParser_class.pas'

Заранее благодарю...

[Vlad_55]

Сообщение от Arkuz

Здравствуйте.
constructor Create(FileName)

Может всё-таки

constructor Create(FileName: string)

и в самом начале написать

constructor TMyclass.Create(FileName: String);
var
 str_tmp:WideString;
 k:integer;
begin
inherited Create;
...
end;

[Arkuz]

Сообщение от Vlad_55

constructor TMyclass.Create(FileName: String);

Ну это само собой...

var
 str_tmp:WideString;
 k:integer;
begin
inherited Create; // сделал, но без изменений
...
end;

Вообще-то компиль ругается на это!

while not InFile.Eof do
...
while not InFile.Eof do
...

[bitSoft]

Сообщение от Arkuz

Вообще-то компиль ругается на это!

while not InFile.Eof do
...
while not InFile.Eof do
...

nu da, etot cod idiot v canetz faila, i ishio raz v kanetz no v 2 raze on uje v kantze,

ya b sdelal tak

 while not InFile.Eof do
        begin
          inc(Count);
          Readln(InFile,str_tmp);
          SetLength(MasStr,Count);
          Readln(InFile,MasStr[Count]); 
        end;

[Arkuz]

Компиль ругается даже когда в 1 раз встречает строку

while not InFile.Eof do

Посмотрите, вот класс, может я вообще что-то не так делаю:

unit TLanguageParser_class;

interface


uses
  Windows, Messages, SysUtils, Dialogs;

type TLanguageParser=class(TObject)
    private
      InFile:TextFile;
      MasStr:array of WideString;
      Count:integer;
    public
      constructor Create(FileName:String); virtual;
      function GetString(N:Integer): WideString;
    end;

implementation

{ TLanguageParser }

constructor TLanguageParser.Create(FileName: String);
var
 str_tmp:WideString;
 k:integer;
begin
 if not FileExists(FileName)
  then ShowMessage('Файл '+FileName+' не существует')
  else
     try
       Count:=0;
       k:=0;
       AssignFile(InFile,FileName);
       Reset(InFile);
       while not InFile.Eof do
        begin
          inc(Count);
          Readln(InFile,str_tmp);
        end;
       SetLength(MasStr,Count);
       while not InFile.Eof do
        begin
          Readln(InFile,MasStr[k]);
          inc(k);
        end;
     except
       CloseFile(InFile);
       MasStr:=nil;
       ShowMessage('Ошибка при работе с файлом '+FileName);
     end;
end;


function TLanguageParser.GetString(N: Integer): WideString;
begin

end;

end.

[Utkin]

 while not Eof(InFile) do

А так? Код не пробовал, но, кажись, надо так.

[Arkuz]

Utkin, спасибо тебе добрый человек. while not Eof(InFile) do эта схема заработала.
Но всё равно ошибка, когда я пытаюсь создать объект этого класса.
Теперь начались проблемы реализации...

[Arkuz]

Пожалуйста помогите разобраться в чём дело!

[Arkuz]

Реьята, ну выручайте...

[bitSoft]

Сообщение от Arkuz

Реьята, ну выручайте...

Nu ya viruchyal , no neznaiu esly tebe tak nado,

Proj v attach.