Вопрос про TStrings
как вообще его юзать не пойму.
вот к примеру пишу
procedure TForm1.Button2Click(Sender: TObject);
begin
Dat.LoadFromFile(extractfilepath(paramstr(0))+'\Text\Data00.pbp');
end;
И получаю ошибку типа Accses violation, хотя если делать то же самое с TMemo
procedure TForm1.Button1Click(Sender: TObject);
begin
Memo1.Lines.LoadFromFile(extractfilepath(paramstr(0))+'\Text\Data00.pbp');
end;
то все нормально.
Вот собственно у меня и вопрос что я делаю не так
вот к примеру пишу
procedure TForm1.Button2Click(Sender: TObject);
begin
Dat.LoadFromFile(extractfilepath(paramstr(0))+'\Text\Data00.pbp');
end;
И получаю ошибку типа Accses violation, хотя если делать то же самое с TMemo
procedure TForm1.Button1Click(Sender: TObject);
begin
Memo1.Lines.LoadFromFile(extractfilepath(paramstr(0))+'\Text\Data00.pbp');
end;
то все нормально.
Вот собственно у меня и вопрос что я делаю не так
Цитата:
Originally posted by Weer
как вообще его юзать не пойму.
вот к примеру пишу
procedure TForm1.Button2Click(Sender: TObject);
begin
Dat.LoadFromFile(extractfilepath(paramstr(0))+'\Text\Data00.pbp');
end;
И получаю ошибку типа Accses violation, хотя если делать то же самое с TMemo
procedure TForm1.Button1Click(Sender: TObject);
begin
Memo1.Lines.LoadFromFile(extractfilepath(paramstr(0))+'\Text\Data00.pbp');
end;
то все нормально.
Вот собственно у меня и вопрос что я делаю не так
как вообще его юзать не пойму.
вот к примеру пишу
procedure TForm1.Button2Click(Sender: TObject);
begin
Dat.LoadFromFile(extractfilepath(paramstr(0))+'\Text\Data00.pbp');
end;
И получаю ошибку типа Accses violation, хотя если делать то же самое с TMemo
procedure TForm1.Button1Click(Sender: TObject);
begin
Memo1.Lines.LoadFromFile(extractfilepath(paramstr(0))+'\Text\Data00.pbp');
end;
то все нормально.
Вот собственно у меня и вопрос что я делаю не так
TStrings - Это АБСТРАКТНЫЙ класс. Используй класс TStringList, и... прежде чем в него что-то записывать, его надо создать, например так: StrList := TStringList.Create