Я использую simplelinkedlist. Здесь: (https://delphihaven.wordpress.com/2011/07/31/generic-linked-lists-redux/)LinkedList Читать один за другим
Я хочу прочитать весь список по одному. Но я не смог найти какой-либо вариант для этого.
Вот мои коды:
function TKduCache.addJPIPResponseData(jRes: TJPIPResponse): Boolean;
var
data : TJPIPDataSegment;
begin
data:= jRes.readLinkedList;
while (data <> nil) and (not data.isEOR) do
begin
addDataSegment(data);
data:= jRes.readLinkedList
end;
Result:= jRes.isResponseComplete;
end;
И readLinkedList метод:
function TJPIPResponse.removeJpipDataSegment: TJPIPDataSegment;
begin
Result:= TJPIPDataSegment(jpipDataList.First.Value);
end;
SimpleLinkedList можно читать, как;
- jpipDataList.First.Value
- jpipDataList.First.Next.Value
- jpipDataList.First.Next.Next.Value
. . .
Как я должен создать свой алгоритм для чтения так?
отлично, спасибо. второй метод подходит для меня – Dauezevy