Цитата:
|
Сообщение от Alexo
в Formcreate написать
stl := TStrings.Create;
в formdestroy
stl.free;
|
Это я правильно понял?
Код:
procedure TForm1.FormCreate(Sender: TObject);
begin
stl := TStrings.Create;
end;
procedure TForm1.FormDestroy(Sender: TObject);
begin
stl.free;
end;
Если правильно, то
Код:
sr:=sr+StrToInt(stl.string[i]);
после слова СТРИНГ останавливается и..
[Error] Unit1.pas(59): Identifier expected but 'STRING' found
[Warning] Unit1.pas(66): Constructing instance of 'TStrings' containing abstract method 'TStrings.Clear'
[Fatal Error] Srednii_ball.dpr(5): Could not compile used unit 'Unit1.pas'
