Arquivos Ini

[mestre fyoda]

o codigo é seguinte :

form1

procedure TForm1.BitBtn3Click(Sender: TObject);

begin

V_status:='inclui';

form2.showmodal;

end;

procedure TForm1.BitBtn2Click(Sender: TObject);

begin

V_status:='ver';

form2.showmodal;

end;

end.

form2

procedure TForm2.BitBtn1Click(Sender: TObject);

var arq : Tinifile;

begin

if form1.V_status='inclui' then

arq := Tinifile.create('agenda.Ini');

arq.WriteString('Nome : '+nome.text,'Endereço',endereco.text);

arq.WriteString('Nome : '+nome.text,'Telefone',telefone.editmask);

arq.WriteString('Nome : '+nome.text,'Cidade',cidade.text);

arq.WriteString('Nome : '+nome.text,'Estado',estado.text);

arq.WriteString('Nome : '+nome.text,'E-Mail',email.text);

arq.WriteString('Nome : '+nome.text,'MSN',MSN.text);

arq.Free;

begin

if form1.V_status='ver' then

arq := Tinifile.create('agenda.Ini');

nome.text := arq.ReadString('Nome : ','Endereco','');

arq.Free;

end;

end;

e quando clico no botao para que funcione o RedString ai da pau , o que mostra na figura .

http://img163.imageshack.us/my.php?image=delphi42ta.jpg

[McBlade]

Não sei se funciona no Delphi 4 masssss...

var
  fLog: TextFile;
begin
  AssignFile(fLog,'erro.log');
  if fileExists('erro.log') then
    append(fLog)
  else
    rewrite(fLog);
  writeln(fLog,'Nome: João Pé de Feijão');
  writeln(fLog,'Fone: 666-6mole-6dura');
  writeln(fLog,'Endereço: Estrada Pé de Feijão');
  writeln(fLog,'praís: praís do Faz-de-Conta');
  flush(fLog);
  closeFile(fLog);
end;

[mestre fyoda]

nem funciona . o delphi4 é muito antigo .

não funfou

[paulobergo]

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, IniFiles, StdCtrls;

type

TForm1 = class(TForm)

Memo1: TMemo;

Button1: TButton;

CheckBox1: TCheckBox;

Edit1: TEdit;

Edit2: TEdit;

Button2: TButton;

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

fiArquivo: TIniFile;

implementation

{$R *.dfm}

Function bSalvar(iNumero: LongInt; sTexto: String; bCondicao: Boolean): Boolean;

Var

bStatus: Boolean;

Begin

bStatus := False;

Try

fiArquivo := TIniFile.Create('c:\temp\teste.ini');

fiArquivo.WriteInteger('SecaoDados','iNumero' ,iNumero);

fiArquivo.WriteString( 'SecaoDados','sTexto' ,sTexto);

fiArquivo.WriteBool( 'SecaoDados','bCondicao',bCondicao);

bStatus := True;

Finally

fiArquivo.Free;

End;

bSalvar := bStatus;

End;

Function bLer(Var iNumero: LongInt; Var sTexto: String; Var bCondicao: Boolean): Boolean;

Var

bStatus: Boolean;

Begin

bStatus := False;

Try

fiArquivo := TIniFile.Create('c:\temp\teste.ini');

iNumero := fiArquivo.ReadInteger('SecaoDados','iNumero' ,Inumero);

sTexto := fiArquivo.ReadString( 'SecaoDados','sTexto' ,sTexto);

bCondicao := fiArquivo.ReadBool( 'SecaoDados','bCondicao',bCondicao);

bStatus := True;

Finally

fiArquivo.Free;

End;

bLer := bStatus;

End;

Procedure TForm1.Button1Click(Sender: TObject);

Begin

If not bSalvar(StrToInt(Edit1.Text),Edit2.Text,CheckBox1.Checked) then

ShowMessage('Ops! houve uma falha ao gravar!');

{EndIf}

End;

Procedure TForm1.Button2Click(Sender: TObject);

Var

iNum: LongInt;

sTxt: String;

bLog: Boolean;

Begin

If not bLer(iNum, sTxt, bLog) then

ShowMessage('Ops! houve uma falha ao ler')

Else

Begin

With Memo1.Lines do Begin

Clear;

Add('iNum='+IntToStr(iNum));

Add('sTxt='+sTxt);

IF bLog then

Add('bLog=True')

Else

Add('bLog=False');

{EndIf}

End;{With Memo1.Lines}

End;

{EndIf}

End;

End.

Delphi: 3(ok), 4(ok) 6(ok)

[mestre fyoda]

to fazendo assim :

VerAgenda.Cells[1,1] := arq.ReadString('Chave','Nome',Nome);

mas não está pegando do arquivo Ini , o campo Nomeesta preenchido com Rafael , e na hora de paresenta na tela fica em branco , sem nada . porque ?