|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
вывести в Edit число из файла
Здравствуйте, помогите пожалуйста.
Есть фаил f.txt в нем записано некоторое вещественное число. Необходимо его вывести в Edit. |
#2
|
||||
|
||||
Код:
var list: TStringList; begin list := TStringList.Create; list.LoadFromFile('f.txt'); Edit1.Text := list[0]; list.Free; end; Код:
var myFile: TextFile; text: string; begin AssignFile(myFile, 'f.txt'); Reset(myFile); while not Eof(myFile) do begin ReadLn(myFile, text); end; CloseFile(myFile); Edit1.Text := text; end; P.S.: почитай это Психических заболеваний НЕТ . Просто ДУРАК Пусть лучше над тобой смеются, чем плачут... Последний раз редактировалось Ultras, 27.02.2010 в 20:57. |
#3
|
|||
|
|||
спасибо буду пробовать
|
#4
|
|||
|
|||
пробовал почитать "это" не понял. Я химик мне нужна программа расчета результатов анализа, сижу пишу. Спасибо за помощь.
|
#5
|
||||
|
||||
ну мои примеры думаю вам подойдут, особенно второй
Психических заболеваний НЕТ . Просто ДУРАК Пусть лучше над тобой смеются, чем плачут... |
#6
|
|||
|
|||
Возник еще один вопрос. Программа компилируется до строки:
Edit1.Text:=text; дальше пишет: [Error] : Undeclared identifier: 'Edit1' |
#7
|
||||
|
||||
положите на форму компонент TEdit и назовите его Edit1, или измените мой код так, что бы подходил под ваш Edit
Психических заболеваний НЕТ . Просто ДУРАК Пусть лучше над тобой смеются, чем плачут... |
#8
|
|||
|
|||
это я сделал, Edit у меня пятый, соответственно все пишу для пятого
|
#9
|
||||
|
||||
если создали процедуру типа:
Код:
procedure FlRead; begin // тут процедура чтения из файла и запись в Edit5 end; Код:
type TForm1 = class(TForm) Edit5: TEdit; // и т.д........ procedure FlRead; // и т.д........ end; procedure TForm1.FlRead; var myFile: TextFile; text: string; begin AssignFile(myFile,'f.txt'); Reset(myFile); while not Eof(myFile) do begin ReadLn(myFile, text); end; CloseFile(myFile); Edit5.Text := text; end; или можно сделать так: Код:
function FlRead(f_name: string): string; var myFile: TextFile; text: string; begin AssignFile(myFile,f_name); Reset(myFile); while not Eof(myFile) do begin ReadLn(myFile, text); end; CloseFile(myFile); Result := text; end; Код:
Edit5.Text := FlRead('f.txt'); Психических заболеваний НЕТ . Просто ДУРАК Пусть лучше над тобой смеются, чем плачут... Последний раз редактировалось Ultras, 27.02.2010 в 23:32. |
#10
|
|||
|
|||
Простите меня пожалуйста, но я уже запутался.
Ниже приведен фрагмент кода. Сделал все как написали. получилось откомпилировать. По замыслу при нажатой RadioButton2 мне нужно чтобы программа брала число из Edit5 и записывала в файл memoKoef.txt. При не нажатой RadioButton2 программа должна это число из файла считать и вывести в Edit5 после чего продолжить с ним работать дальше. Если набираю число с клавиатуры то все нормально считает. А указанные выше операции выполнять не хочет. type TForm1 = class(TForm) Panel1: TPanel; Label1: TLabel; Label2: TLabel; Edit1: TEdit; Panel2: TPanel; Label3: TLabel; Label4: TLabel; Label5: TLabel; Edit2: TEdit; Edit3: TEdit; Panel3: TPanel; Label6: TLabel; Label7: TLabel; Edit4: TEdit; Panel4: TPanel; Label8: TLabel; Edit5: TEdit; Button1: TButton; Memo1: TMemo; RadioButton1: TRadioButton; Edit6: TEdit; Edit7: TEdit; Label9: TLabel; Label10: TLabel; Label11: TLabel; Edit8: TEdit; Button2: TButton; RadioButton2: TRadioButton; procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure Button1Click(Sender: TObject); procedure RadioButton1Click(Sender: TObject); procedure Button2Click(Sender: TObject); procedure RadioButton2Click(Sender: TObject); procedure FlRead; private { Private declarations } public { Public declarations } end; var Form1: TForm1; Xn1:real; V1,V2,V3,V4:real; Vnp1,Vnp2:real; C1,C2,C3,C4:real; csr1,csr2:real; K,rk,sk,rn:real; i,p:Byte; myFile: TextFile; text: string; TextC1:AnsiString; TextC2:AnsiString; TextC3:AnsiString; TextC4:AnsiString; TextCsr1:AnsiString; TextCsr2:AnsiString; TextSk:AnsiString; TextRk:AnsiString; TextRn:AnsiString; const Mr=35.45; Vk=1000; s1=0.16; {ïîãðåøíîñòü} s2=0.11; s3=0.09; r1=0.14; {ïðåäåë ïîâòîðÿåìîñòè} r2=0.08; r3=0.06; implementation {$R *.dfm} procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction); begin if FileExists('memo.txt') then Memo1.Lines.SaveToFile('memo.txt'); end; procedure TForm1.RadioButton1Click(Sender: TObject); begin if RadioButton1.Checked then i:=1 else i:=0; end; procedure TForm1.RadioButton2Click(Sender: TObject); begin if RadioButton2.Checked then p:=1 else p:=0; end; procedure TForm1.FlRead; begin {èíèöèàëèçàöèÿ ôàèëà, ÷òåíèå ïåðåìåííîé} if p=0 then begin AssignFile(myFile, 'memoKoef.txt'); Reset(myFile); while not Eof(myFile) do begin ReadLn(myFile, text); end; Edit1.Text := text; end else Write(f,Edit5.Text); CloseFile(f); end; procedure TForm1.Button1Click(Sender: TObject); begin |
#11
|
|||
|
|||
поправил ошибки с именем переменной myFile. Доходит до
Edit5.Text := text; и пишет: [Error] ChlorideIon.pas(119): Left side cannot be assigned to |
#12
|
|||
|
|||
все тоже самое, только ошибку теперь пишет после
ReadLn(myFile, text); |