Delphi

[Djeka(c)]

Как Сделать ? пожалуйста помогите

Помогите Пожалуйста на delphi , вот это выводить в listview



860 2793047 240 (860)- это пропускаем (2793047)- это пропускаем (240)- добавляем как подскажите ?

240 - это значение бывает разным
2793047 - это значение бывает разным


пожалуйста ребята

очень прошу

[_Engine_]

Получать значение можно таким способом:

function GetValue(var AStr : String; delimiter : Char = ' ') : String;
  begin
    Result := Copy(AStr, 0, Pos(delimiter, AStr) - 1);
    Delete(AStr, 1, Pos(delimiter, AStr));
  end;

В цикле проходишься этой функцией по исходной строке и засовываешь в листбокс нужные тебе значения

[Stilet]

 i:=length(s);
 while (i>1)and(s[i]<>' ') do dec(i);
 dec(i);
 while (i>1)and(s[i]<>' ') do begin w:=s[i]+w;dec(i);end;

Учитывая что s:='860 2793047 240 (860)';

Потом помещай w в новый элемент ЛистВью

ListView.items.add.Caption:=w;

[Djeka(c)]

а можно исходнком ребята пожалуйста ((((??? не понять

[Stilet]

Ох и ленивый же народец пошел...
Поскольку совершенно прозрачное ТЗ твое, все что могу предложить это обработчик одной единственной строки и помещения данных в ЛистВью при создании формы.

procedure TForm1.FormCreate(Sender: TObject);
var i:integer;w,s:string;
begin
 s:='860 2793047 240 (860)';
 i:=length(s);
 while (i>1)and(s[i]<>' ') do dec(i);
 dec(i);
 while (i>1)and(s[i]<>' ') do begin w:=s[i]+w;dec(i);end;
 ListView1.items.add.Caption:=w;
end;

[Mad_Cat]

хех)

s:=s+'  ';
while trim(s)<>'' do
begin
delete(s,1,pos(' ',s));
delete(s,1,pos(' ',s));
lv.items.add.subitems.add(copy(s,1,pos(' ',s)-1);
end;

[Djeka(c)]

Mad_Cat, извини добавь меня =)

Mad_Cat,спасибо тебе