Antichat снова доступен.
Форум Antichat (Античат) возвращается и снова открыт для пользователей.
Здесь обсуждаются безопасность, программирование, технологии и многое другое.
Сообщество снова собирается вместе.
Новый адрес: forum.antichat.xyz
 |
|
24.03.2010, 20:23
|
|
Новичок
Регистрация: 06.01.2010
Сообщений: 23
Провел на форуме:
349200
Репутация:
1
|
|
ты за сегодня столько тем натворил,по кускам программу собрать можешь))))
http://www.delphisources.ru/forum/showthread.php?t=2464 это почитай
|
|
|
24.03.2010, 20:31
|
|
Новичок
Регистрация: 24.10.2009
Сообщений: 26
Провел на форуме:
306200
Репутация:
10
|
|
Сообщение от EndLeSSDre@M
ну в основном ты прав)) это определение массива, только в Delphi
В Delphi и паскале они одинаково объявляются т.е. array [1..N] of type
var a:string;
t:text;
begin
assign (t,'c:\имяфаила.txt'); {связаться с фаилом в каталоге}
rewrite (t); {подготовить фаил для записи}
writeln (t,a); {пишем данные}
close (t); {закрываем фаил}
end.
тут t:text; выдаёт ошибку!
Попробуй использовать AssignFile
|
|
|
|
24.03.2010, 20:36
|
|
Участник форума
Регистрация: 05.06.2009
Сообщений: 127
Провел на форуме:
1313455
Репутация:
249
|
|
var a:string;
t:textfile;
begin
assignfile (t,'c:\имяфаила.txt'); {связаться с фаилом в каталоге}
rewrite (t); {подготовить фаил для записи}
writeln (t,a); {пишем данные}
closefile (t); {закрываем фаил}
end.
|
|
|
|
25.03.2010, 01:38
|
|
Познающий
Регистрация: 07.10.2009
Сообщений: 37
Провел на форуме:
170871
Репутация:
-4
|
|
help Delphi
Здравствуйте всем.
Я хочу написать прогу так вот смотрите я зделал так:
PHP код:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Edit1: TEdit;
Edit2: TEdit;
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var log,pass:string;
t:textfile;
begin
log:=edit1.text;
pass:=edit2.text;
assignfile (t,'D:\1.txt');
rewrite (t);
writeln (t,log,';',pass);
ShowMessage('Новая строчка');
closefile (t);
end;
end.
но при записи у меняя он перезаписывает текст заново,а мне надо что б с новой строчки подскажиье пожалуйста как зделать!
Заранее спасибо!С меня +++. |
|
|
|
25.03.2010, 01:41
|
|
Новичок
Регистрация: 27.09.2009
Сообщений: 28
Провел на форуме:
404511
Репутация:
0
|
|
Про rewrite() почитай повнимательнее.
|
|
|
|
25.03.2010, 01:45
|
|
Участник форума
Регистрация: 18.07.2009
Сообщений: 278
Провел на форуме:
3055344
Репутация:
259
|
|
вот пример который тебе поможет
PHP код:
AssignFile(myFile, 'Test.txt');
WriteLn(myFile, 'Hello');
WriteLn(myFile, 'World');
CloseFile(myFile);
И хватит уже флудить и задавать глупые вопросы! это же элементарные вещи! хотя бы в гугл обратись с запросом "Delphi запись в файл" и там будет куча ссылок на то что тебе нужно.
или хотя бы видишь функция называется ReWrite приставка re означает по русски пере- то есть переписать, достаточно было убрать приставку и все стало бы нормально работать!
Последний раз редактировалось EndLeSSDre@M; 25.03.2010 в 01:54..
|
|
|
|
25.03.2010, 18:06
|
|
Познающий
Регистрация: 07.10.2009
Сообщений: 37
Провел на форуме:
170871
Репутация:
-4
|
|
Как зделать что б то что я вводил в Edit1 и в Edit2 записывалась в блокнот на хостинге?
И возможно ли такое?С меня возногрождение.
Писать можно в icq 570-007-400.
|
|
|
|
25.03.2010, 18:27
|
|
Новичок
Регистрация: 06.01.2010
Сообщений: 23
Провел на форуме:
349200
Репутация:
1
|
|
Сообщение от donka
Как зделать что б то что я вводил в Edit1 и в Edit2 записывалась в блокнот на хостинге?
И возможно ли такое?С меня возногрождение.
Писать можно в icq 570-007-400.
Пинч изобретаешь?)
|
|
|
|
25.03.2010, 19:36
|
|
Познающий
Регистрация: 07.10.2009
Сообщений: 37
Провел на форуме:
170871
Репутация:
-4
|
|
Сообщение от Helium
Пинч изобретаешь?)
нет
|
|
|
|
25.03.2010, 19:37
|
|
Познающий
Регистрация: 07.10.2009
Сообщений: 37
Провел на форуме:
170871
Репутация:
-4
|
|
Делаю типо Fake зделаю выложу на античат!
|
|
|
|
|
|
|
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|
Похожие темы
Линейный вид
