"Вытаскивание" текста

@Петя123 · Регистрация: 25.05.2013

Author24 — интернет-сервис помощи студентам

Вообщем суть такая в Memo1 попадает строчка "L 121 T 435"
Нужно сделать так чтобы после попадания строчки в Memo1 Изображение/переменная получали значения а именно
Image1.Left:=121;
Image1.Top:=435;
как это можно организовать?
и если можно не в тему объясните что значит

Delphi

 if pos('qwerty',qwerty)<>0 then
      begin
 
      end;

@Arcor · 02.11.2013, 16:30

как хранятся эти пары значений? все в одну строчку, или в столбик, в случае если их много?

@Петя123 · 02.11.2013, 16:33 **[ТС]**

Arcor,
вот пример нахождения их в мемо
L 101 T 435
L 111 T 43
L 181 T 224
L 721 T 455
L 161 T 435
L 122 T 435
L 121 T 115
Также можно легко организовать чтоб в Edit1 приходило каждый раз новое

@Arcor · 02.11.2013, 17:06

ну я так по простому поступил, готовыми инструментами чтобы не заморачиваться с парсировкой

Delphi

procedure TForm1.Button1Click(Sender: TObject);
var X, Y: Integer;
    St: TStringList;
    i: Integer;
begin
  St := TStringList.Create;
  for i := 0 to Memo1.Lines.Count - 1 do
    begin
      St.Clear;
      ExtractStrings(['L', 'T', ' '], [], PChar(Memo1.Lines[i]), St);
      X := StrToInt(St.Strings[0]); // тут сохраняем наши значения
      Y := StrToInt(St.Strings[1]); // -- "" --
      Memo2.Lines.Add(IntToStr(X) + ' | ' +  IntToStr(Y)); // а тут для наглядности вызываем их снова, чтобы убедиться что все верно
    end;
  St.Free;
end;

@Петя123 · 02.11.2013, 19:04 **[ТС]**

Arcor, Спасибо! большое

@Arcor 5706 / 2297 / 466 Регистрация: 20.11.2009 Сообщений: 7,721 Записей в блоге: 1
	02.11.2013, 16:30	2
	как хранятся эти пары значений? все в одну строчку, или в столбик, в случае если их много? 1

@Петя123 0 / 0 / 0 Регистрация: 25.05.2013 Сообщений: 95
	02.11.2013, 16:33 [ТС]	3
	Arcor, вот пример нахождения их в мемо L 101 T 435 L 111 T 43 L 181 T 224 L 721 T 455 L 161 T 435 L 122 T 435 L 121 T 115 Также можно легко организовать чтоб в Edit1 приходило каждый раз новое 0

@Петя123 0 / 0 / 0 Регистрация: 25.05.2013 Сообщений: 95
	02.11.2013, 19:04 [ТС]	5
	Arcor, Спасибо! большое 0