Duvida Basica

[C.J.]

bom tenho uma duvida que axo que é simples...

bom como eu faço para o que for digitado no Edit seja enviado para um arquivo Exemplo

a pessoa Digita 123

e quando ela digitar o delphi já vai escrever automaticamente:

Data:123

seria isso a pessoa não precisar digitar data.. e sim o delphi já mandar para o txt por exemplo esse escrito...

se n fui claro me desculpem e me avisem

ABRAÇOS

[Lukas Ssaraiva]

não tou entendo sua pergunta pode explicar de uma maneira eficiente ?

[C.J.]

Seria o seguinte...

a pessoa digita 123 em um edit

e quando ela coloca-se Gerar

iria gerar um TXT e iria escrever assim no TXT

DATA:123

porem o TXT n existi ainda eu quero que o delphi crie esse TXT E já escreva automaticamente data nele

Abraços

[Churc]

Opa

então há várias formas... eu particularmente uso TStringlist;

Prefiro do que ficar criando via Handles...

exemplo

var
  sl: TStringList;
begin
  sl := TStringList.Create;

  sl.Add('DATA:' + Edit1.Text);

  try
    sl.SavetoFile('bla.txt');
  finally
    FreeAndNil(sl);
  end;
end;

abrxx

[C.J.]

outra duvida boba... por exemplo quando eu uso o opendialog como eu faço para so aparecer o nome do programa por exemplo:

eu queria q so aparece o nome do programa e n esse C:/meus documentos...

e CHURC com esse code q você me passou era essa mesmo a minha duvida... como eu faço com esse seu codigo para ele saver o TXT na pasta onde está o meu programa...

Abraços e Obrigado!

[Churc]

Opa

Dúvida 1

if opendialog1.execute then
begin
  ...
  EditX.Text := ExtractFileName(OpenDialog1.FileName);
end;

Dúvida 2 No exemplo que dei acima voce muda no Save para

sl.SavetoFile(ExtractFilePath(Application.Exename) + 'bla.txt');

abrxx