Работа с текстом в memo

[melo111]

Доброго времени суток!
есть объект memo с данными

0;8109818;2;Slovenia Mobile Simobil
0;810677;2;Solomon Islands
0;810252;2;Somalia
0;81027;2;South Africa
0;8102721;2;South Africa Cape Town
0;8102711;2;South Africa Johannesburg
0;810276;2;
0;8107;2;
0;8108;2;South Africa Mobile
0;81027610;2;
0;810611;2;
0;810612;2;
0;810613;2;
0;81074;2;
0;81084;2;South Africa Mobile Cellc
0;81027603;2;
0;810604;2;
0;810605;2;
0;810710;2;
0;810717;2;
0;810718;2;
0;810719;2;
0;81073;2;
0;81078;2;
0;81083;2;South Africa Mobile MTN
0;81027606;2;
0;810607;2;
0;810608;2;
0;810609;2;
0;810711;2;
0;810712;2;
0;810713;2;
0;810714;2;
0;810715;2;
0;810716;2;
0;81072;2;
0;81076;2;
0;81079;2;

как преобразовать в

0;8109818;2;Slovenia Mobile Simobil
0;810677;2;Solomon Islands
0;810252;2;Somalia
0;81027;2;South Africa
0;8102721;2;South Africa Cape Town
0;8102711;2;South Africa Johannesburg
0;810276;2;South Africa Johannesburg
0;8107;2;South Africa Johannesburg
0;8108;2;South Africa Mobile
0;81027610;2;South Africa Mobile
0;810611;2;South Africa Mobile
0;810612;2;South Africa Mobile
0;810613;2;South Africa Mobile
0;81074;2;South Africa Mobile
0;81084;2;South Africa Mobile Cellc
0;81027603;2;South Africa Mobile Cellc
0;810604;2;South Africa Mobile Cellc
0;810605;2;South Africa Mobile Cellc
0;810710;2;South Africa Mobile Cellc
0;810717;2;South Africa Mobile Cellc
0;810718;2;South Africa Mobile Cellc
0;810719;2;South Africa Mobile Cellc
0;81073;2;South Africa Mobile Cellc
0;81078;2;South Africa Mobile Cellc
0;81083;2;South Africa Mobile MTN
0;81027606;2;South Africa Mobile MTN
0;810607;2;South Africa Mobile MTN
0;810608;2;South Africa Mobile MTN
0;810609;2;South Africa Mobile MTN
0;810711;2;South Africa Mobile MTN
0;810712;2;South Africa Mobile MTN
0;810713;2;South Africa Mobile MTN
0;810714;2;South Africa Mobile MTN
0;810715;2;South Africa Mobile MTN
0;810716;2;South Africa Mobile MTN
0;81072;2;South Africa Mobile MTN
0;81076;2;South Africa Mobile MTN
0;81079;2;South Africa Mobile MTN

Заранее спасибо.

[IvaniuS]

чего простите? код в студию: где хранятся все коды=операторы, по какому критерию дополняются операторы.

[vlad1389]

melo111 Смотри в сторону StringList

[min@y™]

типа, если поле записи "ОпСос" пустое, скопировать в него опсоса из поля предыдущей записи? Я прально понимаю?

[melo111]

Сообщение от min@y™

типа, если поле записи "ОпСос" пустое, скопировать в него опсоса из поля предыдущей записи? Я прально понимаю?

ДА ВЕРНО

[min@y™]

ну это ж примитив! какие тут могут быть проблемы-то?

[Serge_Bliznykov]

точно, примитив!

ну я бы написал (если по быстренькому надо) так:

procedure TForm1.Button1Click(Sender: TObject);

  function GetOpSos(s:string):string;
  var j:integer;
  begin
    Result:='';
    if Pos(';',s)=0 then Exit;
    j:=Length(s);
    while s[j]<>';' do Dec(j);
    Result := Copy(s, j+1, Length(s)-j)
  end;

var ts: TStringList;
 i:integer;
 s, PrevOpSos : string;
begin
  if Memo1.Lines.Count<1 then Exit;

  ts:= TStringList.create;
  ts.Text := Memo1.Lines.Text;
  PrevOpSos := '';
  for i := 0 to ts.Count - 1 do begin
    s:=trim(ts.Strings[i]);
    if Length(s)>0 then
      if s[Length(s)]=';' then ts.Strings[i]:=s+PrevOpSos
      else PrevOpSos := GetOpSos(s);
  end;
  Memo1.Lines.Assign(ts);
  FreeAndNil(ts)
end;

[melo111]

Сообщение от min@y™

ну это ж примитив! какие тут могут быть проблемы-то?

Да я понимаю.
я только начинаю изучать программирование

[Serge_Bliznykov]

код выше не просмотрели, часом?