|
Ответ: чо за?...
карочь какойто бред у меня получаетсо... уже вроде читает всё шо надо но не всегда оО тоесть иногда прочитало а иногда нет и зависает соответсвтенно хоть читает то же самое... ппц... я уже написал шоб небыло ошыбки при открытии файла
repeat
until resourseAvieble(res);
вроде так) точно не помню как пишетсо процедура=)
а оно всёравно то же самое... значит ета ошыбка не изза того шо файл неправильно открыт был... вобщем незнаю... тот пример шо ты кидал , так там стандартные методы считывания файла...
function win2utf(s: string): string;
var len, ch, i: integer;
sstt: string;
begin
sstt:=''; len:=Length(s)-1;
for i:=0 to len do begin ch:=ord(GetChar(s,i)); if ch>122 then sstt:=sstt+chr(ch+1104) else sstt:=sstt+chr(ch); end;
win2utf:=sstt;
end;
- вотето тож не спасает...
З.Ы. пример не могу запустить так как нехватает библиотек
|