Оффлайн
Андрей
Принятый Кодер
- Регистрация
- 17 Дек 2015
- Сообщения
- 62
- Баллы
- 60
Загружается каждая строка, после окончания загрузки появляется ошибка.
Код:
unit Unit1;
interface
uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, sButton, sMemo;
type
TForm1 = class(TForm)
sMemo1: TsMemo;
sButton1: TsButton;
sButton2: TsButton;
OpenDialog1: TOpenDialog;
procedure sButton1Click(Sender: TObject);
procedure sButton2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
type
TPotok = class(TThread)
private
{ Private declarations }
protected
procedure Execute; override;
end;
var
Form1: TForm1;
stroki:TStringlist;
implementation
{$R *.dfm}
procedure TForm1.sButton1Click(Sender: TObject);
begin
stroki:=TStringlist.Create;
if OpenDialog1.Execute then
begin
stroki.LoadFromFile(OpenDialog1.FileName);
end;
end;
procedure TForm1.sButton2Click(Sender: TObject);
begin
TPotok.Create;
end;
procedure TPotok.Execute;
var
num, i: integer;
begin
num:=0;
for i := 0 to stroki.Count do
begin
Form1.sMemo1.Lines.Add(stroki.Strings[num]);
Inc(num);
end;
end;
end.
