Строки в Delphi

[Liubashka]

Помогите пожалуйста!
Дано целое число n,символы S1,S2,...,Sn среди которых есть двоеточие. Получить все символы,расположенные между первым и вторым двоеточием.Еси второго двоеточ.нет,то получитm все символы,расположенные после единственного двоеточ.

[Кронос]

У тебя символы записаны одной строкой или как элементы массива?

[SERG1980]

можно по самому простому
1. с помощью ф-ии Delete и Pos удаляем все символы до первого двоеточия
2. Проверяем если ещё двоеточие (ф-ия Pos), если да то копируем часть слова до второго двоеточия (ф-ия Copy Pos) если нет то оставшаяся строка это и есть ответ

[goto ∞]

Вот то что выше сказали.Только, если обнаружен 2ое ':' не идет копирование, а удаление..

var s : string; p,i,n : integer;
begin
 s := Edit1.Text;
 n := length(s);
 p := pos(':',s);
 delete(s,1,p);
 p := pos(':',s);
 if  p <> 0 then
 delete(s,p,n-p);
 label1.Caption := s;

[Liubashka]

Сообщение от Кронос

У тебя символы записаны одной строкой или как элементы массива?

Символы записаны одной строкой,хотя можно и одномерный массив взять

Сообщение от goto ∞

Вот то что выше сказали.Только, если обнаружен 2ое ':' не идет копирование, а удаление..

var s : string; p,i,n : integer;
begin
 s := Edit1.Text;
 n := length(s);
 p := pos(':',s);
 delete(s,1,p);
 p := pos(':',s);
 if  p <> 0 then
 delete(s,p,n-p);
 label1.Caption := s;

А что там теперь добавить чтобы она работала?

[Stilet]

Если тебе нужно приложение с формами то придется почитать по делфи Самоучитель.
Если же консольная программа то:

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var s : string; p,i,n : integer;
begin
 s := '123:456:789:93456';
 n := length(s);
 p := pos(':',s);
 delete(s,1,p);
 p := pos(':',s);
 if  p <> 0 then
 delete(s,p,n-p);
 write(s);readln;
end.

[goto ∞]

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

А что там теперь добавить чтобы она работала?

Добавь на форму "Button1", "Edit1", "Label1". Если ты об этом..