![]() |
|
|
|||||||
| Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
![]() |
|
|
Опции темы | Поиск в этой теме | Опции просмотра |
|
|
|
#1
|
|||
|
|||
|
Здравствуйте. Пытаюсь запустить на embarcadero rad studio 2010 следующий код на delphi:
Код:
Var
F : Textfile;
vstr,dstr : array[0..255] of Char;
xstr : string;
begin
AssignFile(f,FileNameEdit1.Text);
Reset(F);
while not EOF(F) do begin
ReadLn(F,vstr);
OEMtoAnsi((vstr),(dstr));
xstr:=(dstr);
xstr:=DelSpace(xstr);
end;
end; |
|
#2
|
||||
|
||||
|
Цитата:
|