Решите тест Имя графического файла:
phone.jpg
book.docx
OSPPREARM.EXE
song.mp3
Типы файлов, существующие в Linux и отсутствующие в Windows:
файлы с программами и данными
ссылки
каталоги
файлы с документами
Пример полного имени файла операционной системы Windows:
/lesson/chem/oxid
C:\Workdocuments.docx
C:/Work/documents
Рабочие программы/Сочинения
Маске *doc?.xls не соответствует имя файла :
My_doc1.xls
fdoc1.xls
My_doc12.xls
doc3.xls
Совокупность файлов на диске:
дисковод
папка
каталог
файловая структура диска
Имя текстового файла:
song.dll
phone.арк
OSPPREARM.EXE
book.docx
К общему для Windows и Linux типу файлов не относятся:
файлы с документами
файлы с программами и данными
ссылки
каталоги
Пример полного имени файла операционной системы Linux:
C:Workdocuments
C:/Work/documents
/lesson/chem/oxid
Рабочие программыСочинения
Маске *doc*.xls? соответствует имя файла
My_doc12.xlsx
fdoc1.xls
doc3.1xls
My_doc1.xls
Поименованная совокупность файлов и подкаталогов
программы
дисковод
каталог
диск
var Buff: TNodePointer;
x: TItem;
i,j: Cardinal;
begin
i:=0;
Buff:=Head;
if(Buff^.Next=nil) then
begin
ShowMessage('В стеке один элемент!');
exit;
end;
while Buff <> nil do
begin
while (Buff^.Next<>nil) and (Buff^.Data=Buff^.Next^.Data) and not(isEmpty(Buff)) do
begin
pop(Buff^.Next,x);
for j:=i to StringGrid1.RowCount-2 do
StringGrid1.Cells[0,j]:=StringGrid1.Cells[0,j+1];
StringGrid1.RowCount:=StringGrid1.RowCount-1;
end;
Buff:=Buff^.Next;
i:=i+1;
end;
end;
PS. Delphi у меня сейчас нет, так что проверяйте сами. Если что не так - сообщайте.