Где то примерно так:
Код:
procedure TForm1.Button1Click(Sender: TObject);
var Par: TStringList;
s:string;
i,k:integer;
begin
Par := TStringList.Create;
Par.Clear;
s:='1|10|12|16|22|55';
i:=0;
ExtractStrings(['|'], [' '], PChar(S), Par);
i:=((strtoint(edit1.text)) div 5);
k:=((strtoint(edit1.text)) mod 5);
if (k>0) then inc(i);
ListBox1.Items.Add(Par.Strings[i]);
Par.Free;
end; |