icqclient

[foxes]

Извините меня за тупость ну это моя первая программа, что я хочу создать,
Чтобы из одного txt брал и сохранял в другой!
тут он сохраняет- но файл пустой.
Господа программисты, если вы можете помочь мне. стукните в аську 673835. чтобы я не засорял форум тупостью,
procedure TForm1.Button2Click(Sender: TObject);
var settings:TIniFile;
begin
settings:=TIniFile.Create(ExtractFi lePath(ParamStr(0))+'settings.ini') ;
Edit3.text:=settings.ReadString('fo nt', 'Size', '');
settings.Free;
icqclient1.ChangePassword(edit3.tex t);
Memo1.Lines.Add('пароль изменён.')
settings:=TIniFile.Create(ExtractFi lePath(ParamStr(0))+'sett.txt');
settings.WriteString('font', 'Size', edit3.text);
settings.Free;

[S@fer]

при таком сохранении
файл

'sett.txt'

должен быть такой же структуры как и settings.ini

Если же вы хотите просто записать в текстовый файл,
то надо делать так

procedure TForm1.Button2Click(Sender: TObject);
var settings:TIniFile;
      f:TextFile;
begin
settings:=TIniFile.Create(ExtractFilePath(ParamStr (0))+'settings.ini');
Edit3.text:=settings.ReadString('font', 'Size', '');
settings.Free;
icqclient1.ChangePassword(edit3.text); 
Memo1.Lines.Add('пароль изменён.');
AssignFile(f,ExtractFilePath(ParamStr (0))+'sett.txt');
if FileExists(ExtractFilePath(ParamStr (0))+'sett.txt') then Append(f) else Rewrite(f);
Writeln(f,edit3.text);
CloseFile(f);
end;

И еще в вашем коде пропущена точка с запятой

Memo1.Lines.Add('пароль изменён.');

[foxes]

Помогите не могу понять в чём причина

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ICQClient, ICQWorks, StdCtrls,  inifiles;

type
  TForm1 = class(TForm)
    ICQClient1: TICQClient;
    Button1: TButton;
    s: TMemo;
    procedure Button1Click(Sender: TObject);
    procedure Change;
    procedure ICQClient1Error(Sender: TObject; ErrorType: TErrorType;ErrorMsg: String);
    procedure ICQClient1InfoChanged(Sender: TObject; InfoType: TInfoType;ChangedOk: Boolean);
    procedure ICQClient1LogOff(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  source:TStringList;
  tmp,uin,pass:string;
implementation

{$R *.dfm}

{ TForm1 }

procedure TForm1.Button1Click(Sender: TObject);
begin
 source:=TStringList.Create;
 source.LoadFromFile('test.txt');
 ICQClient1.ConvertToPlaintext:=True;
 ICQClient1.ICQServer:='login.icq.com';
 ICQClient1.ICQPort:=5190;
 Change;
end;

procedure TForm1.Change;
begin
 if source.Count>0 then
 begin
  tmp:=source.Strings[0];
  uin:=copy(tmp,1,pos(';',tmp)-1);
  pass:=copy(tmp,pos(';',tmp)+1,length(tmp));
  Memo1.Lines.Add(uin+' '+pass);
  ICQClient1.Password:=pass;
  ICQClient1.UIN:=StrToInt(uin);
  ICQClient1.Login;
 end;
end;

procedure TForm1.ICQClient1Error(Sender: TObject; ErrorType: TErrorType; ErrorMsg: String);
begin
Memo1.Lines.Add(tmp+' Err: '+ErrorMsg);
 ICQClient1.LogOff;
end;

procedure TForm1.ICQClient1InfoChanged(Sender: TObject; InfoType: TInfoType; ChangedOk: Boolean);
var
  f:textfile;
begin
  assignfile(f,'Changed.txt');
   writeln(f,uin+';'+'newpass');
 closefile(f);
 source.Delete(0);
 Memo1.Lines.Add(tmp+' Changed');
 ICQClient1.LogOff;
end;

procedure TForm1.ICQClient1LogOff(Sender: TObject);
begin
 Memo1.Lines.Add('dis');
 Change;
end;

end.

[foxes]

здравствуйте, нужна мне помощь, не могу никак сделать, чтобы соединялся поочереди из списка , у меня идёт только первый номер и стал ,если вам не трудно не могли вы мне помочь

procedure TForm1.Button1Click(Sender: TObject);
begin
source:=TStringList.Create;
source.LoadFromFile('un.txt');
ICQClient1.ConvertToPlaintext:=True ;
ICQClient1.ICQServer:='login.icq.co m';
ICQClient1.ICQPort:=5190;
if source.Count>0 then
for i:=0 to source.count-1 do
begin tmp:=source.Strings[0];
uin:=copy(tmp,1,pos(';',tmp)-1);
pass:=copy(tmp,pos(';',tmp)+1,lengt h(tmp));
ICQClient1.Password:=pass;
ICQClient1.UIN:=StrToInt(uin);
ICQClient1.Login;
end
else
begin
tmp:=source.Strings[0];
uin:=copy(tmp,1,pos(';',tmp)-1);
pass:=copy(tmp,pos(';',tmp)+1,lengt h(tmp));
ICQClient1.Password:=pass;
ICQClient1.UIN:=StrToInt(uin);
ICQClient1.Login;
end ;
end;
procedure TForm1.ICQClient1ConnectionFailed(S ender: TObject);
begin
form1.Memo1.Text:=form1.Memo1.Text+ uin+';'+pass+' '+'Bad'+#13#10;
Label1.Caption:=('OffLine');
form1.ICQClient1.Disconnect;
end;

procedure TForm1.ICQClient1Login(Sender: TObject);
begin
ICQClient1.Login();
form1.Memo1.Text:=form1.Memo1.Text+ uin+';' +Edit1.Text+ ';' +Pass+' '+'Good'+#13#10;
Label1.Caption:=('OnLine');
sleep(1000);
form1.ICQClient1.Disconnect;
mona:=true;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
if mona then
begin
mona:=false;
end;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
i:=0;
mona:=true;
end;

end.