Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Для новичков > что делает этот код?

Автор: Kvazilol 14.12.2007, 20:42

товарищи, нужен был алгоритм, нагуглил, а он не на том языке который я знаю...((( помогите пажалста,
скажите хотябы что он делает (поточнее), порсто я не знаю этих функций, а узнавать книжках долго а мне нужно быстро а то не успею

объхявления переменных я понимаю, циклы тоже, условные переходы тоже (буду писать это на C#)

Код


var

F : file;

I : dword;

S : string;

N : array[1..5] of Char;

Buf : array[1..500] of Char;

R : TextFile;

begin

AssignFile(R,'Emails.txt');

ReWrite(R);

AssignFile(F,WABFile);

Reset(F,1);

if IOResult=0 then begin

repeat

BlockRead(F,N,2);

if N[1]+N[2]=#03#48 then begin

BlockRead(F,Buf,Ord(N[2])+30);

S:='';

for I:=1 to Ord(N[2])+30 do S:=S+Buf[I];

Delete(S,1,3);

I:=Pos(#00#00#00,S);

if I>0 then SetLength(S,I-1);

for I:=1 to Ord(N[2]) do if S[I]=#00 then Delete(S,I,1);

for I:=1 to Length(S) do

if S[I]0)and(Pos('.',S)>0) then

writeln(r,UpperCase(S));

end else Seek(F,FilePos(F)-1);

until FileSize(F)-FilePos(F)<6;

CloseFile(F);

end;

CloseFile(R);

ну.. сначала понятно а потом нет.. открываем файл.. читаем 2 байта? (или 2 буквы?)
Ord(N[2]) это что такое? ASCII код символа?
Delete(S,1,3);  вырезает из массивы элементы с 1 по 3й?
что делается при I:=Pos(#00#00#00,S);   и чтотакое вот эти штуки #00#00#00
что делает  SetLength(S,I-1)
что делает Seek(F,FilePos(F)-1);

спасибо ответившему!!!

M
Alexeis

Модератор: Название темы должно отражать ее суть!

Автор: ivan219 14.12.2007, 21:31