Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.05.30;
Скачать: 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 вся ветка

Текущий архив: 2004.05.30;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.037 c
14-1084502074
Helpme
2004-05-14 06:34
2004.05.30
Извините


3-1083931955
}|{yk
2004-05-07 16:12
2004.05.30
Глюк FIBPlus?


6-1081892723
-=Rezya=-
2004-04-14 01:45
2004.05.30
Proxy


1-1084822240
connect
2004-05-17 23:30
2004.05.30
Как взять значение переменных окружения в виндузе и ....


14-1084129697
James Stuart
2004-05-09 23:08
2004.05.30
Вопрос по Виндам 98