18.08.2009, 17:23
|
|
Познающий
Регистрация: 28.01.2009
Сообщений: 90
С нами:
9096406
Репутация:
80
|
|
Потому что вы никуя не умеете программить, а лишь компилите готовые куски кода, и ни в состоянии исправить элементарные ошибки.....
Код:
var
f: file of char;
c: char;
data: string;
begin
AssignFile(f,'путь');
Reset(f);
while not eof (f) do begin
Read(f,c);
case c of
'0'..'9','A'..'Z', 'a'..'z', #32, #9, ':': data:=data+c;
end;
end;
CloseFile(f);
Memo1.text:=data;
end;
|
|
|