Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

!!! HELP !!! СРОЧНО ... Вопрос жизни и смерти... =) [D6, Win2k]

x000d © (2002-03-31 04:31:00)
Люди.........слушайте подскажите плиз как сделать..
1. Я открыл 1.txt пустой..
как мне через программу занести туда текст ??
например при нажатии кнопки button там текс hello.
помогите плизз... если можно пример привидите любые..
или хелп кто нить дайте касающейся этой темы.

Anatoly Podgoretsky (2002-04-01 00:29:00) [1]
И не дай бог не проверишь

Adder (2002-04-01 00:20:00) [2]
The $I switch directive enables or disables the automatic code generation that checks the result of a call to an I/O procedure. If an I/O procedure returns a nonzero I/O result when this switch is on, an EInOutError exception is raised (or the program is terminated if exception handling is not enabled).When this switch is off, you must check for I/O errors by calling IOResult.

KaPaT (2002-04-01 00:19:00) [3]
когда директивой отключаешь я думаю желательно вставить IOResult

lipskiy (2002-04-01 00:12:00) [4]
Окей, я так и думал. А в системе нигде пакостей не останется?
И какими еще директивами можно так безболезненно пользоваться?

Вадим (2002-04-01 00:05:00) [5]
Если возникнет ошибка, то о ней никто не узнает

lipskiy (2002-03-31 23:56:00) [6]
2 Adder
Простите, что влез не в тему, не подскажете ли, нафиг нужны директивы {$I-} и {$I+}? Я так понимаю, они отключают обработку ошибок ввода-вывода. А чем это лучше? Что произойдет, если ошибка действительно возникнет?

x000d (2002-03-31 23:27:00) [7]
Вот такая ситуация , есть чат Vypress Chat 1.5.1
там строчка что писать текст она вроде Edit
как мне отловиить в Vypress Chat ,EDIT и программно написать текст ?

Biorobot (2002-03-31 21:17:00) [8]
Нечего добавить, коммент от Аддера лучший!

Anatoly Podgoretsky (2002-03-31 11:28:00) [9]
x000d © (31.03.02 04:31)
А как открыл, от жтого зависит как заносить?

cutter (2002-03-31 04:59:00) [10]
procedure TForm1.Button1Click(Sender: TObject);
var
f:TextFile;
begin
AssignFile(f,"c:\1.txt");
Rewrite(f);
Write(f,"Hello!");
CloseFile(f)
end;

Adder (2002-03-31 04:43:00) [11]
{$I-}
AssignFile(MyFile,"MyText.txt");
Rewrite(MyFile);
WriteLn(MyFile,"Hello");
CloseFile(MyFile);
{$I+}

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »