|
|
|||||
"Аинслей"
|
Цитата:
to MoHaX: а что - сразу в обидки? =)
__________________
Мы не съедобны. |
|
|||||
Регистрация: Apr 2002
Адрес: Москва
Сообщений: 58
|
Цитата:
ivanov_artem@mail.ru Заранее большое спасибо! |
|
|||||
Че то ребят я потерялся тут, что я обещал кинуть ?
|
|
|||||
Регистрация: Apr 2002
Адрес: Москва
Сообщений: 58
|
Цитата:
Если тебе не трудно кинь мне текст программы? Заранее благодарю! |
|
|||||
А без проблем
я тебе его тут напишу Var f:Textfile; s:string; begin AssignFile(f,"2.txt"); Rewrite(f); Writeln(f,s); CloseFile(f); end; //s переменная куда записываются данные из программы в данном случае записи в файлы есть два оператора write и writeln последний с переносом строки вот и все Последний раз редактировалось Eguana; 08.09.2004 в 14:30. |
|
|||||
"Аинслей"
|
Хм... даже интересно, будет ли читать флеша из этого файла. Напишите, пожалуйста результат.
__________________
Мы не съедобны. |
|
|||||
"Аинслей"
|
Проверил. Все работает. =)
__________________
Мы не съедобны. |
|
|||||
Регистрация: Apr 2002
Адрес: Москва
Сообщений: 58
|
Цитата:
а потом проверю связку флэш-делфи |
|
|||||
Регистрация: Apr 2002
Адрес: Москва
Сообщений: 58
|
А вот из этого почему-то не читает :(
unit Main;
interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, StdCtrls, RXShell, ComCtrls; type TMainF = class(TForm) Timer1: TTimer; TrackBar1: TTrackBar; Label1: TLabel; Timer2: TTimer; procedure FormCreate(Sender: TObject); procedure Timer1Timer(Sender: TObject); procedure TrackBar1Change(Sender: TObject); procedure Timer2Timer(Sender: TObject); private { Private declarations } public { Public declarations } end; var MainF: TMainF; f,ff:textfile; s:string; implementation uses BillU; {$R *.dfm} procedure TMainF.FormCreate(Sender: TObject); begin assignfile(f,'1.txt'); assignfile(ff,'1.txt'); InitComPort(); end; procedure TMainF.Timer1Timer(Sender: TObject); var b:string; begin s:=GetStatus; MainF.Caption:='Bill Status - '+GetStatus; //append(f); rewrite(f); b:='0'; if s='Escrow 10'then b:='10'; if s='Escrow 50'then b:='50'; if s='Escrow 100'then b:='100'; if s='Escrow 500'then b:='500'; if s='Escrow 1000'then b:='1000'; write(f,b); closefile(f); end; procedure TMainF.TrackBar1Change(Sender: TObject); begin Timer1.Interval:=Trackbar1.Position*1000; end; procedure TMainF.Timer2Timer(Sender: TObject); var s:string; begin reset(ff); read(ff,s); Label1.Caption:=s; closefile(ff); end; end. В чем может быть проблема? |
|
|||||
Вы крутые парни сделали прогу по таймеру, типа если суешь денежку дельфя записывает в файл номинал купюры и передает флешу. Молодцы Молодцы Молодцы........
Ты можешь кинуть файл проекта в дельфях вместе с формой я сделаю чтобы у тя записывался файл.... Вот тамер первый переменная B как понял должна записываться в файл да ? procedure TMainF.Timer1Timer(Sender: TObject); var b:string; begin s:=GetStatus; MainF.Caption:='Bill Status - '+GetStatus; //append(f); rewrite(f); b:='0'; if s='Escrow 10'then b:='10'; if s='Escrow 50'then b:='50'; if s='Escrow 100'then b:='100'; if s='Escrow 500'then b:='500'; if s='Escrow 1000'then b:='1000'; write(f,b); // читай ниже ------------------- closefile(f); end если поставишь writeln то будет переносится на другую строку лучше конечно скинь проект на почту support@asinteger.ru я тебе напишу прогу вечером сегодня и конечно скинь тех задание и т.д. и описание файла если что можешь найти меня по аське 169873150 |
Часовой пояс GMT +4, время: 20:40. |
|
« Предыдущая тема | Следующая тема » |
|
|