чо за?...

[beZ_probleM]

блин у меня мозги уже плавлятсо от кодинга))
подскажыте почему не работает :

procedure read_(k:string);
var res:resource;
    g:string;
    i:integer;
begin
res:=openresource(k);
if (resourceAvailable(res)) then 
   begin
     g:=readline(res);
     repeat
       if (g='1') or (g='2') or (g='3') or (g='4') then
          begin
            i:=stringtointeger(g);
          end
       else
          begin
            para[i].nazva:=g;
            para[i].prepod:=readline(res);
            para[i].aud:=readline(res);
          end;
      g:=readline(res);
     until g='#';
   end;
CloseResource(res); 
end; 


Пример содержымого файла :

1
Лек. Об’єктивно–орієнтовне програмування
Лісовець
Аудиторія:1-0413
2
Лек. Релігієзнавство
Множинська Р.В.
Аудиторія:4-0505
#

проблема 1оо% не в имени файла а в считывании с файла...

[temned]

Может с кодироовкой что?

[beZ_probleM]

наверно со шрифтом... а в какой кодировке нужно сохранять чтоб можно было читать русские буквы из этого .txt-файла?

у меня есть пример обработки русских символов... но я непомню для какой ето кодировки, тоесть какая кодировка должна быть в файле :

Function StrToUtf8(s: string;): string; // Корректирует русскую кодировку в строках взятых из ресурсов...
var i, c: integer; ch: char; ss: string;
begin
    if (pos(s,chr(65488))<>-1) or (pos(s,chr(65489))<>-1) then begin // если строка содержит русские симовлы, то
        for i:=1 to Length(s) do begin // перебираем строку
            ch:=GetChar(s,i-1); c:=ord(ch);    // берем по байтику
            if c=65488 then begin                // если байт равен 65488, то следующий байт отвечает за русскую букву
                ss:=ss+CHR(ord(GetChar(s,i))-64384);    // находим русскую букву и запоминаем
                i:=i+1;                                                                // это чтобы мы перешли на следующую букву, а не брали следующий байт
            end
            else begin
                if c=65489 then begin                        // то же самое но с другим байт-кодом
                    ss:=ss+chr(ord(GetChar(s,i))-64320);
                    i:=i+1;
                end
                else ss:=ss+ch;                                        // если это не русская буква, то просто ее добавим
            end;
        end;
        StrToUtf8:=ss;                            // возвращаем откорректированный текст
    end
    else StrToUtf8:=s;            // если строка не содержала русских букв, то просто ее и возвратим...
end; 


[temned]

кинь исходник

[beZ_probleM]

Сообщение от TEMNED

кинь исходник

а что по твоему я бросал ещё в самом начале?

[Banan]

Попробуй в файле после знака # оставить пустую строку. У меня при похожей ситеме как раз из за этого зависало.

[VM]

Обычно в конце файла пишу:
eof
---
В цикле until g = 'eof';
Всё работает...

[Piligrim]

все дело в том, что строка с "#" или с "eof" тоже должна заканчиваться переводом строки

[VM]

Сообщение от pilgrim

все дело в том, что строка с "#" или с "eof" тоже должна заканчиваться переводом строки

Все правильно, я это имел ввиду, когда написал:
eof
--- << Это обязательная строка, т.к. просто перевод строки, после которого нет текста, некоторые текстовые редакторы удаляют автоматом.

[beZ_probleM]

кароче проблема не в той строке на которую заканчивается файл а в том что оно читать не хочет файл когда я сохраняю его в кодировке Юникод(UTF-8 )

когда же сохраняю в обычной кодировке блокнота то оно читает нормально, токо вместо русского текста "ИЕРОГЛИФЫ" какието пишет...

вобщем проблема в кодировке я так понял...
и странно что функция StrToUtf8,которую я выложыл выше, не спасает...

[temned]

Program read; 
const 
voprosy = 20; 
var 
v,po,o1,o2,o3: array[1..voprosy] of string; 
c: integer; 



procedure read(t: string); 
var 
res : resource; 
byte,c,c1: integer; 
line,a1,a2 : string; 
f: boolean; 

begin 
res := openResource(t); 
if (resourceAvailable(res)) then begin 
a1:='АБВГДЕЖЗИЙКЛМНОПРСТУФХЦЧШЩЪЫЬЭЮЯ'; 
a2:='абвгдежзийклмнопрстуфхцчшщъыьэюя'; 

for c:=1 to voprosy do begin 
line:=''; 
repeat begin 
byte := readByte(res); f:=true; 
if byte<> 13 then begin 
for c1:=0 to 32 do begin 
if byte=(-64+c1) then begin line:=line+copy(a1,c1,c1+1);f:=false;break;end; 
if byte=(-32+c1) then begin line:=line+copy(a2,c1,c1+1);f:=false;break;end; 
end; 

if byte=(-88) then begin line:=line+'Ё';f:=false;end; 
if byte=(-72) then begin line:=line+'ё';f:=false;end; 
if f then line:=line+chr(byte); 

end;end; until byte = 13; 
byte := readByte(res); 
o3[c]:=line; 
end; 
closeResource(res); 
end; end; 

begin 
read ('/v.txt'); for c:=1 to voprosy do v[c]:=o3[c]; 
read ('/po.txt'); for c:=1 to voprosy do po[c]:=o3[c]; 
read ('/o1.txt'); for c:=1 to voprosy do o1[c]:=o3[c]; 
read ('/o2.txt'); for c:=1 to voprosy do o2[c]:=o3[c]; 
read ('/o3.txt'); 
end.

это задумка одного парня-чтение русских строк из

[beZ_probleM]

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

[temned]

Хорошо. вечером зайду в сеть, попытаюсь че-нить сделать. просто сясь на миниопера. ЕСЛИ ТЕ НЕ трудно скинь твой текст уже в нужной кодировке. Попробую разобраться вечером, самому стало интересно.

[beZ_probleM]

текст я уже приводил какой должен быть в файле а кодировка Юникод(UTF-8 ) это 1оо%

[GRAY_WOLF]

Сообщение от beZ_probleM

текст я уже приводил какой должен быть в файле а кодировка Юникод(UTF-8 ) это 1оо%

Погляди здесь http://forum.boolean.name/showthread.php?t=7592
пример выложен - там перекодировка из win1251 > utf8 поиск в ресурсном файле и вывод на дисплей со скролингом.