строки в делфи

[Danis_ka]

здравствующие, у меня 3 задания:
1) дан текст на русском языке, удалить первое слово;
2) дана строка букв и цифр, найти количество букв в строке;
3)ученики зашифровали свои записи , записывая слова наоборот =D составить программу, зашифровывающую и расшифровывающую сообщения.
я понимаю, что они не сложные, но у меня нет никакого опыта в решении строк, помогите плз, больше не буду прогуливать лекции по программированию =)

[Danis_ka]

честно говоря, даж не знаю с чего начать и что использовать

[Сtrl]

На каком этапе решения задачи возникают трудности?

[Danis_ka]

мб поможете а?

[Сtrl]

Сообщение от Danis_ka

мб поможете а?

Без проблем! Буду только рад. Для этого ответьте на вопрос, представленный выше.

[Mad_Cat]

1)

s:=trim(s);
while s[1]<>'  ' do
delete(s,1,1);

2)

k:=length(s);
for i:=1 to length(s) do
if s[i] in['0'..'9'] then dec(k);

3)

k:=length(s);
for i:=1 to k div 2 do
begin
buf:=s[i];
s[i]:=s[k-i+1];
s[k-i+1]:=buf;
end;

[Сtrl]

Mad_Cat,

1)

Не факт, что слово отделено пробелом. А если '\t'?

3)

По-моему в задании слова наоборот, а не вся строка.

[Danis_ka]

спс за помощь, я так понял, в третьей надо брать элементы, разделенные пробелом и писать их наоборот, или как-то так, да?

[Mad_Cat]

Сtrl да пофиг) это же примеры)

[Serge_Bliznykov]

для третьей задачи посмотрите код здесь

или возьмите такой код:

procedure TForm1.Button1Click(Sender: TObject);
var s, sOne, s2 : string;
  i, j : integer;
begin
  s := Edit1.text+' ';
  s2 := '';
  sOne := '';
  for i := 1 to length(s) do
  Begin
      if (s[i] = ' ') then begin
         for j:=Length(sOne) downto 1 do s2 := s2 + sOne[j];
         sOne := '';
         s2 := s2 + ' ';
      end
      else sOne := sOne + s[i];
  end;

  Edit2.Text:= s2;
end;

амаМ алым умар и алитсич убыр