|
Сообщение от pilgrim
program NewProject3;
uses jsr75, str;
var i: integer; s, f, r: String;
begin
s:= read_file('root1/test.txt');
drawText(s, 0, 30);
s:= 'просто тетсовая stroka.';
write_file('root1/test1.txt', s);
if open_file('root1/test.txt')=1 then begin
drawText('OK',0,40);
s:= read_string;
drawText(s, 0, 50);
end;
repaint;
delay(5000);
end.
это для моей библиотеки. у JSR75i больше функций и многие по другому вызываются, текстовый файл с описаниями |
Незнаю почему но твой код ваще не прохавало!
Во первых так и не понял зачем ты сделал ( uses str )
И ваще он не хавает код грит не пойму read_file - что это значит
и так далее!
Счас опишу что у меня выдает:
---
При таком коде: (твой вариант примера):
program NewProject3;
uses jsr75,str;
var i: integer; s, f, r: String;
begin
s:= read_file('root1/test.txt');
drawText(s, 0, 30);
s:= 'просто тетсовая stroka.';
write_file('root1/test1.txt', s);
if open_file('root1/test.txt')=1 then begin
drawText('OK',0,40);
s:= read_string;
drawText(s, 0, 50);
end;
repaint;
delay(5000);
end.
-- выдает такое:
...error, failed to load 'str' library/unit
...error, identifier 'read_file' is not constant, function or variable name.
2 error(s), 0 warning(s)
Ну думаю уберу из uses str - убрал:
program NewProject3;
uses jsr75;
var i: integer; s, f, r: String;
begin
s:= read_file('root1/test.txt');
drawText(s, 0, 30);
s:= 'просто тетсовая stroka.';
write_file('root1/test1.txt', s);
if open_file('root1/test.txt')=1 then begin
drawText('OK',0,40);
s:= read_string;
drawText(s, 0, 50);
end;
repaint;
delay(5000);
end.
-- выдает такое:
...error, identifier 'read_file' is not constant, function or variable name.
1 error(s), 0 warning(s)
Потом вспомнил что гдето видел такое на форуме что писать нужно так
jsr75.read_file('root1/test.txt');
попробывал:
program NewProject3;
uses jsr75;
var i: integer; s, f, r: String;
begin
s:= jsr75.read_file('root1/test.txt');
drawText(s, 0, 30);
s:= 'просто тетсовая stroka.';
jsr75.write_file('root1/test1.txt', s);
if jsr75.open_file('root1/test.txt')=1 then begin
drawText('OK',0,40);
s:= jsr75.read_string;
drawText(s, 0, 50);
end;
repaint;
delay(5000);
end.
-- выдает такое:
...error, error, library/unit does not constain function 'read_file'
...error, error, library/unit does not constain function 'write_file'
...error, error, library/unit does not constain function 'open_file'
... тут сказануло что нема ';' в drawText('OK',0,40);
...error, error, library/unit does not constain function 'read_string'
а тут еще сказало что нужна '.' а не ';' в
//...
end; // вот на это строке
repaint;
delay(5000);
end.
6 error(s), 0 warning(s)
опять
Вот решил перечислить все либы что лежат у меня может в них трабл! :
MIDletPascal\Libs\..
Lib_jsr75.class
Lib_jsr75s.class
Lib_rsenum.class
Lib_jsr75is.class
Lib_rsenum.java
и все собсно больше ничего не кидал...
Может я чето пропустил или чтото не так делаю! Просьба помочь разобраться!
P.S. у меня MIDlet Pascal 2.01