перегнать значения из мэмо в эдит

[Jleksern]

Здравствуйте люди добрые.

Собственно, знаю что тут умные и продвинутые пользователи которые меня поймут, по этому собственно обращаюсь к Вам.

Хочу сделать небольшую программу, которая будет расставлять значения с memo в edit.
Как это выглядит...
К примеру у нас есть такой SQL запрос в мемо...

INSERT INTO `auto_chat` VALUES ('1', '', '31093', '-1', '-1', '0');

нужно при нажатии на кнопочку, перегнать все значения в edit...
в результате чтоб получилось примерно так в caption копомнента.
edit1 1
edit2
edit3 31093
edit4 -1
edit5 -1
edit6 0

Собственно пока это бы сделать... Скиньтесь исходником пожалуйста!!

[Arigato]

То есть эти значения надо выдрать из SQL-запроса? Тогда простым парсером. Пример:

program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils, Classes;

const
  str = 'INSERT INTO `auto_chat` VALUES (''1'', '''', ''31093'', ''-1'', ''-1'', ''0'');';

procedure SQL_Parser(SQL: string; Params: TStringList);
var
  P: Integer;
begin
  Params.Clear;
  repeat
    P := Pos('''', SQL);
    if P > 0 then begin
      Delete(SQL, 1, P);
      P := Pos('''', SQL);
      if P > 0 then begin
        Params.Add(Copy(SQL, 1, P - 1));
        Delete(SQL, 1, P);
      end;
    end;
  until P = 0;
end;

var
  P: TStringList;
  i: Integer;

begin
  P := TStringList.Create;
  SQL_Parser(str, P);
  for i := 0 to P.Count - 1 do begin
    WriteLn(i, ' = ', P[i]);
  end;
  P.Free;
  ReadLn;
end.

Вгонять полученные значения в Edit'ы сделаете самостоятельно.

[cyberdev]

Для решения проблемы нужен ваш код. Но я вижу решение так:

1. Ищем значение VALUES.
2. Ищем первый знак '.
3. Перемещаемся дальше, считываем параметр в едит.
4. Ищем последний знак '.
5. Со следующей позиции повторяем пункты 2, 3 и 4 для следующего едита. И так далее.

Код, думаю, вы напишите сами, а мне просто лень. Если что-то получаться не будет, то спрашивайте отвечу.

[Аватар]

Так, абстрактно. Значения не обязательно в кавычках могут быть. Вывод - в парсинге опираться не только на кавычки, а на кавычки и запятые, ну и кто из них раньше

[cyberdev]

Вывод - в парсинге опираться не только на кавычки, а на кавычки и запятые, ну и кто из них раньше

Так я и написал, ищем первую кавычку, параметр, затем вторую кавычку. По любому значения идут в порядке: ', параметр, '. Если на пути попадаются запятые, то просто игнорируем их. И потом, ТС написал строку вида: VALUES, 6 параметров, которые нужно считать в едиты. Конечно, если есть нюансы то их также нужно обработать.

[Arigato]

Сообщение от Аватар

Значения не обязательно в кавычках могут быть.

Какой пример привели, под такой и сделали