Mudar nome do contato

Delphi

09/03/2014

Eu gostaria de fazer com que se o nome do contato fosse preenchi só por VK_SPACE, o nome dele torna-se o número.

Como posso fazer isso?
Meu código, o abaixo, até agora só salva como nome do contato o edit1... como posso fazer para que se o edit1 for preenchido por VK_SPACE, onde tem edit1 seja posto edit2. Ou seja, o número se tornaria o nome do contato.

var
arquivo: TStringList;
begin
if ((Edit1.Text = '') and (Edit2.Text = '')) then  
  showmessage('Não há informações suficientes para criar um contato') 
  else
begin
ListBox1.Items.Add(Edit1.Text); 
if not DirectoryExists('C:\Contatos') then
ForceDirectories('C:\Contatos'); 
arquivo := TStringList.Create; 
try
  arquivo.Add('Nome : ' + Edit1.Text);  
  arquivo.Add('Número : ' + Edit2.Text);
  arquivo.Add('Endereço : ' + Edit3.Text); 
  arquivo.Add('E-mail : ' + Edit4.Text);   
  arquivo.SaveToFile('C:\Contatos\'+Edit1.Text+'.txt');
  Edit1.Text := '';
  Edit2.Text := '';
  Edit3.Text := '';
  Edit4.Text := '';
  finally
  arquivo.Free;
  end;
end;
end;
Maryanne Alice

Maryanne Alice

Curtidas 0

Respostas

Luiz

Luiz

09/03/2014

você pode fazer uma condição, se o Edit1.Text = space você atribui o valor do edit2 para o edit1, ou seja, o código para o nome ... 


var
arquivo: TStringList;
begin
if ((Edit1.Text = '') and (Edit2.Text = '')) then  
  showmessage('Não há informações suficientes para criar um contato') 
  else
begin
ListBox1.Items.Add(Edit1.Text); 
if not DirectoryExists('C:\Contatos') then
ForceDirectories('C:\Contatos'); 
arquivo := TStringList.Create; 

//aqui >>
if  trim(Edit1.Text) = '' then
    Edit1.Text := Edit2.Text;
//aqui <<
try
  arquivo.Add('Nome : ' + Edit1.Text);  
  arquivo.Add('Número : ' + Edit2.Text);
  arquivo.Add('Endereço : ' + Edit3.Text); 
  arquivo.Add('E-mail : ' + Edit4.Text);   
  arquivo.SaveToFile('C:\Contatos\'+Edit1.Text+'.txt');
  Edit1.Text := '';
  Edit2.Text := '';
  Edit3.Text := '';
  Edit4.Text := '';
  finally
  arquivo.Free;
  end;
end;
end;
GOSTEI 0
Maryanne Alice

Maryanne Alice

09/03/2014

Muito obg :D :D vc ta sendo minha salvação rsrs mt obg mesmo por suas ajuda.
GOSTEI 0
Luiz

Luiz

09/03/2014

:) Magina, espero que esteja conseguindo aprender cada vez mais ...
GOSTEI 0
POSTAR