| Автор | помогите с delphi |
|---|
Извини, но я откланиваюсь. Я знаю, что сразу надо было либо попросить задание и написать код, или, как сделали умные люди, отправить учить мат. часть. Сейчас уже поздно и мне есть чего поделать, если тебе не критично, лучше напиши сюда задание! Пусть люди, если захотят, напишут тебе код. хотя, конечно, никто в здравом уме делать этого просто так не станет. А это, с ноля учить человека по кусочкам работать с файлами, ну его.
выделяет красным((
Выделяет красным это не ошибка. Выделять красным в компиляторе может по стольким причинам, что нужно быть похлеще Ванги чтобы определить почему. |
Да, как я и думал
104 Файл не открыт для ввода (File not open for input) |
как ты и сказал
read(F, str);
label3.caption:=str;
фаил уже содержит цифру |
для Somefreeknight:
да я как бы уже не в том возрасте, чтоб учиться)))
это я для себя )) |
так. перестаньте какать постами, если в делфи не рубите.
для тихийубийца:
конкретно - что в файл сохранить? значения всей лейблов в один файл? юзай файндкомпонент, например |
begin
read(F, str); \\тут должен читать
label3.caption:=str; \\
а остальное все работает и записывает
a:=3;
Label42.Caption := IntToStr(a);
label3.caption := inttostr(strtoint(label3.caption)+1);
label40.caption := inttostr(b);
b:=a;
AssignFile(F, 'text.txt');
ReWrite(F);
Closefile(F);
end; |
для Cragghack:
много лэйблов в проге.
запустил все робит.
закрыл прогу и все введенные цифры обнулились,а мне бы хотелось их сохранить до следующего запучка.
както так |
Cragghack
Человек не может книжку открыть и хотя бы попробовать разобраться в наипростецком примере, а вы ему API суете... |
для тихийубийца:
ну смотри: так можно сделать, когда все лейблы последовательны, т.е. Label1, Label2 и т.д.
Вот, например, мы присваиваем первым трем лейблам значения в цикле:
for i:=1 to 3 do (FindComponent('Label'+inttostr(i)) as TLabel).Caption:=inttostr(i)
Аналогично пишем их в файл:
procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
f:textfile;
begin
assignfile(f,'c:\test.txt');
rewrite(f);
for i:=1 to 3 do writeln(f,(FindComponent('Label'+inttostr(i)) as TLabel).Caption);
closefile(f)
end; |
для MrSlayer:
при чем тут не могу открыть книжку?
прочел я про делфи, а запись и чтения не могу вкурить(( |
А читать из файла:
procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
f:textfile;
s:string;
begin
assignfile(f,'c:\test.txt');
reset(f);
for i:=1 to 3 do begin
readln(f,s);
(FindComponent('Label'+inttostr(i)) as TLabel).Caption:=s;
end;
closefile(f)
end;
для MrSlayer:
Это не апи, обычные стандартные касты с кассами |
для Cragghack:
begin
label3.caption := inttostr(strtoint(label3.caption)+1);
AssignFile(F, 'text.txt');
ReWrite(F);
Closefile(F);
end;
давай вот так.
как прочитать и вписать текст в лэйбл3? |
В ходе своей программы что вы мне продемонстрировали, пытались читать значения из файла путем открытия фал на запись, а именно rewrite(f)
я уже сказал в чем ошибка, повторю еще раз "Файл не открыт для ввода". Ибо вы его открываете на запись, а не на чтение.
пути решения проблемы: открываете любую книжку, находите главу чтение\запись текстовых файлов. Если бы вы ее открыли и хотя бы посмотрели, таких глупых вопросов не возникало.
Писать вам готовый код, как вы хотите получить его здесь, я не буду, ибо толку от такой работы будет 0, вы ничему не научитесь. |
для тихийубийца:
пост 51. читаем из файла и пишем в лейбл |
Cragghack
как раз таки это методы API, первую попавшуюся ссылку скинул вам в личку |
для Cragghack:
вот, спасибо огромное, все заработало!!!!!!! |
| тема закрыта by тихийубийца (2012-03-14 03:28:24) |
|---|
