|
|
#1
|
|||
|
|||
hello мужики
интересует самый простой пример вывода с editов по button
на текстовый документик .txt буду признателен |
#2
|
|||
|
|||
Код:
var t : TextFile; begin AssignFile(t,'FileName.txt'); Rewrite(T); Writeln(T,Edit1.Yext); CloseFile(T); end; Можно так Код:
var sl : TStringList; begin sl := TStringList.Create; sl.LoadFromFile('FileName.txt'); sl.add(edit.text); sl.SaveToFile('FileName.txt'); end; По хорошему, нужно заключить в try.... finally Последний раз редактировалось nixon232, 17.04.2018 в 16:33. |
Этот пользователь сказал Спасибо nixon232 за это полезное сообщение: | ||
help me (17.04.2018)
|
#3
|
||||
|
||||
Не, а если их много, ведь ТСу нужно "вывода с editов по button", тогда лучше так
Код:
procedure TForm1.ButtonClick(Sender: TObject); var i: integer; begin with TStringList.Create do begin for i := 0 to ComponentCount - 1 do if Components[i] is TEdit then Add((Components[i] as TEdit).Text); SaveToFile('FileName.txt'); Free; end; end; Я не понял Вашего вопроса, но всё же Вам на него отвечу! |
#4
|
|||
|
|||
Цитата:
по второму коду запись идет. теперь интересует: можно ли открыть этот текстовик после этой процедуры? |
#5
|
|||
|
|||
мне казалось, что такую мелочь проще проверить, чем спрашивать
ps во втором варианте не хватает sl.free. pps А вообще, вариант Alegun предпочтительней ввиду универсальности. |