Зациклить Pos()

[Лера22]

Всем привет!
Помогите дописать программу до рабочего состояния
нужно чтобы pos() двигался дальше первой строки и переписывал значиения pos1 и pos2, которые выводятся с помощью showmessage(), чтобы я видела, правильно ли работает программа

Код программы:

procedure TForm1.Button1Click(Sender: TObject);
var
  list:TStringList;
  pos1,pos2,i:integer;
begin
list:=TStringList.Create;
list.LoadFromFile('testlist.txt');

for i:=0 to list.Count-1 do
begin

   pos1:=pos('-',list.text);
    pos2:=pos(#13#10,list.text);

    showmessage(IntToStr(pos1));
   showmessage(IntToStr(pos2));

end;
end;

end.

Нужно:
использовать pos() (!!не posex())

Текстовой файл:

Петров-номер6
Алексеев-номер22
Филатов-номер52

программа должна выдать 6 сообщений:

1 строка:
1сообщение: "7"
2сообщение: "14"

2 строка:
3сообщение: "9"
4сообщение: "17"

3 строка:
5сообщение: "8"
6сообщение: "16"

Спасибо, тем кто хоть отзовётся

[Аватар]

Если уж в цикле идете по StrinList, то зачем Text парсите? Есть StringList.Strings[i] и легко посчитать по каждой строке позиции

[Лера22]

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

Если уж в цикле идете по StrinList, то зачем Text парсите? Есть StringList.Strings[i] и легко посчитать по каждой строке позиции

Вы говорите про использования list.NameValueSeparator ?
если нет, то к сожалению я вас не поняла

[Аватар]

StringList.Strings[i] возвращает каждую строку в отдельности. В ней и ищите с помощью Pos позицию "-". Второй Pos не нужен, достаточно длину строки показать с помощью Length

[Лера22]

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

StringList.Strings[i] возвращает каждую строку в отдельности. В ней и ищите с помощью Pos позицию "-". Второй Pos не нужен, достаточно длину строки показать с помощью Length

подкрепите пожалуйста исходным кодом, если Вам не сложно.

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

длину строки показать с помощью Length

после "-" неизвестно сколько символов может быть записано. потом я расчитаю сколько символов после "-"

[Аватар]

list:=TStringList.Create;
list.LoadFromFile('testlist.txt');
for i:=0 to list.Count-1 do
begin
   pos1:=pos('-',list.Strings[i]);
   pos2:=Length(list.Strings[i]);
   showmessage(IntToStr(pos1));
   showmessage(IntToStr(pos2));
end;
list.Free;

[evg_m]

подкрепите пожалуйста исходным кодом, если Вам не сложно.

for i:=0 to list.Count-1 do
begin
s:=list.strings[j];
pos1:=pos('-',s);
showmessage(format('s(%d)=%s pos=%d after=%d', [j, s,pos1, length(s)=pos1]);
end;

[Аватар]

[i, s,pos1, length(s)-pos1]