LINUX.ORG.RU

История изменений

Исправление bormant, (текущая версия) :

Попытка переписать сишные примеры на паскаль провалена?

Она ниже.
1. 

for (some_type_t * item = first_item; item; item = item->next)
{
}

item:=first_item;
while item<>nil do begin
  //...
  item:=item^.next;
end;
или 
item:=first_item;
while item<>nil do with item^ do begin
  //...
  item:=next;
end;
или 
for item in items do {...};
2. 
for (char * s = str; *s; s++)
{
}

s:=str;
while s^<>#0 do begin
  //...
  Inc(s);
end;
или 
for s in str do begin
  //...
end;
или 
for i:=1 to Length(str) do {...};
3. 
for (size_t i = 0; initialization_list[i].somedata; i++)
{
}

i:=0;
while initialization_list[i].somedata<>0 do begin
  //...
  Inc(i);
end;
На что обратить внимание?

Исправление bormant, :

Попытка переписать сишные примеры на паскаль провалена?

Она ниже.
1. 

for (some_type_t * item = first_item; item; item = item->next)
{
}

item:=first_item;
while item<>nil do begin
  //...
  item:=item^.next;
end;
или 
item:=first_item;
while item<>nil do with item^ do begin
  //...
  item:=next;
end;
или 
for intem in items do {...};
2. 
for (char * s = str; *s; s++)
{
}

s:=str;
while s^<>#0 do begin
  //...
  Inc(s);
end;
или 
for s in str do begin
  //...
end;
или 
for i:=1 to Length(str) do {...};
3. 
for (size_t i = 0; initialization_list[i].somedata; i++)
{
}

i:=0;
while initialization_list[i].somedata<>0 do begin
  //...
  Inc(i);
end;
На что обратить внимание?

Исходная версия bormant, :

Попытка переписать сишные примеры на паскаль провалена?

Она ниже.
1. 

for (some_type_t * item = first_item; item; item = item->next)
{
}

item:=first_item;
while item<>nil do begin
  //...
  item:=item^.next;
end;
или 
item:=first_item;
while item<>nil do with item^ do begin
  //...
  item:=next;
end;
2. 
for (char * s = str; *s; s++)
{
}

s:=str;
while s^<>#0 do begin
  //...
  Inc(s);
end;
или 
for s in str do begin
  //...
end;
или 
for i:=1 to Length(str) do {...};
3. 
for (size_t i = 0; initialization_list[i].somedata; i++)
{
}

i:=0;
while initialization_list[i].somedata<>0 do begin
  //...
  Inc(i);
end;
На что обратить внимание?