por favor,uma mãozinha numa questão de pascal

[drspscbr]

Alguém sabe com que código eu resolvo a seguinte questão:

"Ler uma string e mostrar as iniciais de cada palavra. Exemplo: ‘Programar é moleza’ -> ‘Pém’."

Agradeço de antemão

[danielrgoes]

Alguém sabe com que código eu resolvo a seguinte questão:

"Ler uma string e mostrar as iniciais de cada palavra. Exemplo: ‘Programar é moleza’ -> ‘Pém’."

Agradeço de antemão

Estou sem delphi aki para fazer o codigo

se você quizer depois faço pra você

mais a logica é o seguinte

faz um laço ate o Length da string (length é a funçao que retorna o valor inteiro o numero de caracteres de uma string)

dento do laço você faz se o caracter for = '' você pega o proximo

ate acabar a string

lembrando de sempre pegar o primeiro

deve fica algo assim

for i to length(frase) do

begin

if frase = '' then

begin

achou := frase[i + 1];

palavrafinal := palavrafinal[j] + achou;

j := j + 1;

end;

end;

[Jhonas]

Alguém sabe com que código eu resolvo a seguinte questão:

"Ler uma string e mostrar as iniciais de cada palavra. Exemplo: ‘Programar é moleza’ -> ‘Pém’."

danielrgoes ... foi necessário fazer algumas correções no seu código, mas a idéia era essa mesma

procedure TForm1.Button1Click(Sender: TObject);
var i,j : integer; achou : string;
begin
   Edit2.Clear;
   for i := 1 to length(Edit1.Text) do
      begin
         if i = 1 then
            Edit2.Text := Edit1.Text[i];

         if Edit1.Text[i] = ' ' then
            begin
               achou := Edit1.Text[i + 1];
               Edit2.Text := Edit2.Text + achou;
            end;
      end;
end;

abraço