в Delphi на строки

[Ann_Sh]

Дана строка символов, среди которых есть двоеточия. Выведите в Memo все символы, расположенные до первого двоеточия.
Никак не получается сделать...help!!

[Пепел Феникса]

var s:string;
     i:integer;
begin
 Readln(s);
 i:=0;
 while(s<>':')and(i<=Length(s))do begin write(s[i]);inc(i);end;
end;

тупо до безумия.(решение не оптимальное)

[Niro]

функции pos и copy вам в помощь

[Serge_Bliznykov]

среди которых есть двоеточия. Выведите в Memo все символы, расположенные до первого двоеточия.

согласен с Niro.
Одна строчка, полностью решающая задачу:

if Pos(':', s)>0 then Memo1.Lines.Text := Copy(s, 1, Pos(':', s)-1);

[Ann_Sh]

Serge_Bliznykov
Спасибо!!!