icqclient

[foxes]

icqclient1.ChangePassword(edit3.tex t);
Memo1.Lines.Add('пароль изменён.');
SaveFile('C:\1.txt');

Здраствуйте, помогите нужно сделать так когда пароль изменён нужно

чтобы его сразу сахранил в .txt

[Пепел Феникса]

procedure TForm1.FormClick(Sender: TObject);
var f:textfile;
begin
 icqclient1.ChangePassword(edit3.text);
 Memo1.Lines.Add('пароль изменён.');
 assignfile(f,'C:\1.txt');
 rewrite(f);
 writeln(f,edit3.text);
 closefile(f);
end;

очищает файл и добавляет в него пароль

[foxes]

Пепел Феникса.
Большое спасибо за ответ!!!
ну немножко не то.что мне нужно -файл не очищал .а просто дабовлял туда информацию

[Пепел Феникса]

procedure TForm1.FormClick(Sender: TObject);
var f:textfile;
begin
 icqclient1.ChangePassword(edit3.text);
 Memo1.Lines.Add('пароль изменён.');
 assignfile(f,'C:\1.txt');
 append(f);
 writeln(f,edit3.text);
 closefile(f);
end;

всего то делов

[foxes]

Пепел Феникса
Спасибо тебе ещё раз, просто для меня ещё это тёмный лес,
недавно я только стал учить.

есть ещё вопрос. а можно сделать так. чтобы не вводить пароль в edit3,

а сразу он брал его из txt ?

[Пепел Феникса]

не за что...

я вроде ни к чему не придирался особо...понимаю что функции для работы с файлами вы не знаете

[DeDoK]

ну создаеш что то типа StringList и затем LoadFromFile. ПОтом пишешь что типа IcqClient1.Password:=StringList.Ite ms[0];

[S@fer]

Можно сделать ини файл и от туда выбирать строки

uses inifiles;

var settings:TIniFile;
begin
  settings:=TIniFile.Create(ExtractFilePath(ParamStr(0))+'settings.ini');
  Edit1.text:=settings.ReadString('font', 'Size', '');
  settings.Free;

Структура файла settings.ini выглядет

[font]
Size=10

Запись в файл

settings:=TIniFile.Create(ExtractFilePath(ParamStr(0))+'settings.ini');
  settings.WriteString('font', 'Size', edit1.text);
  settings.Free;

[foxes]

Большое спасибо за ответ!!!

ну мне нужно имено что был *. txt файл!!!

А как это сделать я не знаю?

[S@fer]

ну мне нужно имено что был *. txt файл!!!

ну так указывай в строчке txt

settings:=TIniFile.Create(ExtractFilePath(ParamStr(0))+'settings.txt');