Распознать значение из строки

[Federal]

У меня в Мемо есть строка:

Koordinat(1000:45000)

Мне нужно из строки вытащить значение переменных
то есть
X=1000
Y=45000
длина значений не известна то есть может быть 1000 может 10000 может вообще 1.

[DIgorevich]

Смысл, надеюсь, понятен:

var
i:integer;
s:string;
begin
s:='Koordinat(1000:45000)';
i:=Pos('(', s);
delete(s,1,i);
i:=Pos(':', s);
delete(s,i,length(s));
showmessage('Это первое число '+s);
end;

Можно даже и без лишней переменной:

var
s:string;
begin
s:='Koordinat(1000:45000)';
delete(s,1,Pos('(', s));
delete(s,Pos(':', s),length(s));
showmessage('Это первое число '+s);

[zotox]

Вот еще вариант :

procedure TForm1.Button1Click(Sender: TObject);
var
 len: integer;
 cur_sym: string;
 c_x, c_y: string;
 y_bool: boolean;
begin
 len:=0;
 while copy(Memo1.Lines.Strings[len], 1, 9)<>'Koordinat' do
  //Определяем на всякий случай где наша строка
  begin
    inc(len);
  end;

 cur_sym:=Memo1.Lines.Strings[len];
 y_bool:=false;
 len:=11; //Местоположение открытой скобки
 while cur_sym[len]<>')' do
  begin

    if y_bool=true then
     //Y
     begin
       c_y:=c_y+cur_sym[len];
       inc(len);
       Continue;
     end;

    if cur_sym[len]<>':' then
     //X
     begin
       c_x:=c_x+cur_sym[len];
     end
    else
     begin
       y_bool:=true;
     end;

    inc(len);
  end;

 showmessage(c_x+'--'+c_y);
end;

[Federal]

Спасибо помогло

[DIgorevich]

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

Вот еще вариант :

Жесть! Это ж сколько памяти программа жрать будет, да и тактов лишних много:

program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils;
var
  s1,s:string;
begin
  readln(s);
  s1:=s;
  delete(s1,1,Pos('(', s1));
  delete(s1,Pos(':', s1),length(s1));
  writeln(s1);

  delete(s,1,Pos(':', s));
  delete(s,Pos(')', s),length(s));
  writeln(s);
  sleep(2000);
end.

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

Спасибо помогло

А кому спасибо хоть? Спасибо говориться, путем нажатия на кнопочку весов, слева от этого сообщения

[Federal]

Спасибо всем кто откликнулся на весы нажал- не забыл)))
Согласен c Digorevich способ Zotox слишком тяжок, но тоже способ...
Просто если требуется обработать за раз пару десятков таких строк программка встанет думаю.