Правильно добавить свой метод

← →
Прямой (2004-05-18 09:09) [0]

Требуется добавить метод
type TScpStringList = class(TStringList)
private
{ Private declarations }
Procedure LoadFromFileAll(FileName: String; List:TStringList);
end;
implementation
Procedure TScpStringList.LoadFromFileAll(FileName: String; List: TStringList);
begin
Открываю файл для чтения FileOpen с доступом fmShareDenyNone
читаю в буфер, далее List.text:=Buffer;
end;

procedure TForm1.Button1Click(Sender: TObject);
var tt:TScpStringList;
begin
tt:TScpStringList.Create;
tt.LoadFromFileAll("c:\Вася.txt",tt);
tt.Free;
end;
Получается что передаю самого себя, а надо что-бы метод LoadFromFileAll сам знал, что я хочу считать в тот список с которым я работаю. Как данный финт делать?

← →
ЮЮ © (2004-05-18 09:17) [1]

>Procedure TScpStringList.LoadFromFileAll(FileName: String; List: TStringList);
>begin
>Открываю файл для чтения FileOpen с доступом fmShareDenyNone
>читаю в буфер, далее List.text:=Buffer;
>end;

Procedure TScpStringList.LoadFromFileAll(FileName: String);
begin
...
// своему Text и присваивай
Text := Buffer;
end;

← →
Прямой (2004-05-18 09:27) [2]

Спасибо, все как просто, я уж мудрить стал, вопрос снят.

Правильно добавить свой метод Найти похожие ветки