Скачать: CL | DM;

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

← →
Прямой   (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]

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.023 c