Adicionar um zero antes

[Cyber 0]

Tenho um Memo1 que vai receber alguns números na qual quando estiver um número sozinho ele adiciona um ZERO antes deixando como no exemplo abaixo...

Exemplo Memo1:
21 1 59 5 89 2
11 5 22 57 9 88

O resultado seria Memo2:
21 01 59 05 89 02
11 05 22 57 09 88


Alguém teria uma ideia?

[Chrnos 30]

Os números serão inseridos um a um no memo ou serão enviados em linhas? Se forem enviados em linhas, terá que quebrar a string num array por exemplo e testar cada valor para verificar os que forem menores que 10 para inserir a linha. Explica melhor o processo e o que pretende fazer.

[Ricardo Alves Carvalho 0]

procedure TForm1.Button1Click(Sender: TObject);

var

i, k: Integer;

s: string;

begin

Memo2.Lines.Clear;

for i := 0 to Memo1.Lines.Count do

begin

s := Memo1.Lines;

for k := length(s) downto 1 do

if ((k = 1) or (s[k-1] = ' ')) and ((k = length(s)) or (s[k+1] = ' ')) then

insert('0', s, k);

Memo2.Lines.Add(s);

end;

end;

[Cyber 0]

 

procedure TForm1.Button1Click(Sender: TObject);

var

i, k: Integer;

s: string;

begin

Memo2.Lines.Clear;

for i := 0 to Memo1.Lines.Count do

begin

s := Memo1.Lines;

for k := length(s) downto 1 do

if ((k = 1) or (s[k-1] = ' ')) and ((k = length(s)) or (s[k+1] = ' ')) then

insert('0', s, k);

Memo2.Lines.Add(s);

end;

end;

 

Cara, sem palavras... funcionou perfeitamente, muito obrigado mesmooooo ... Valeuuuu!!