Форум АНТИЧАТ - Кто поможет (Delphi)?

Страница 1 из 2

Показывать 40 сообщений этой темы на одной странице

Форум АНТИЧАТ (https://forum.antichat.xyz/index.php)

- С/С++, C#, Delphi, .NET, Asm (https://forum.antichat.xyz/forumdisplay.php?f=24)

- - Кто поможет (Delphi)? (https://forum.antichat.xyz/showthread.php?t=189860)

donka

24.03.2010 00:09

Что делать(Delphi)?

Я хочу вместо кнопки поставить иконку я знаю что при надатии на кнопку там есть Glyph но у меня почему то этого нет как мне быть.(Очень надо помогите!
Можно писать в icq:570-007-400!
С меян +.

slesh

24.03.2010 00:43

юзай не tbutton, а TBitBtn или TSpeedButton
как угодно будет. и там есть Glyph

donka

24.03.2010 12:32

Кто поможет (Delphi)?

Здраствуйте у меня вопрос!Я в Delphi новичок.
Я бы хотел узнать как можно записи в переменной сохранить в .txt?
Желательно поподробнее!
Заранее спасибо.С меня +!

Helium

24.03.2010 12:49

вот паскаль, делфи почти тоже самое
var a:string;
t:text;
begin
assign (t,'c:\имяфаила.txt'); {связаться с фаилом в каталоге}
rewrite (t); {подготовить фаил для записи}
writeln (t,a); {пишем данные}
close (t); {закрываем фаил}
end.

donka

24.03.2010 12:57

Цитата:

Сообщение от Helium

тут t:text; выдаёт ошибку!

EndLeSSDre@M

24.03.2010 12:59

PHP код:


		
			
var

  i:integer;

  g:array[1..5] of integer;



begin

  rewrite(output,'output.txt');

  g[1]:=1;

  g[2]:=2;

  g[3]:=3;

  g[4]:=4;

  g[5]:=5;

  

For i:=1 to 5 do

begin

  append(output);

  write(g[i],' ');

end;

end.

Ferrari california

24.03.2010 15:49

Цитата:

g:array[1..5] of integer;

я новичок можно это строчку по подробнее ?

m0Hze

24.03.2010 15:56

Цитата:

Сообщение от Ferrari california

я новичок можно это строчку по подробнее ?

Если я не забыл паскаль, то это определение одномерного массива, размеренностью 5, и типом данных: integer.
В паскаль массив по моему может содержать только данные одного типа,мешать нельзя.Хотя может я и не прав,сто лет назад паскаль учил ><

EndLeSSDre@M

24.03.2010 16:02

Цитата:

Сообщение от m0Hze

ну в основном ты прав)) это определение массива, только в Delphi

donka

24.03.2010 19:56

Помогите в Delphi

Помогите в Delphi как зделать Анимированный ProgressBar!
Я новичок
Заранее спасибо!

Helium

24.03.2010 20:23

ты за сегодня столько тем натворил,по кускам программу собрать можешь))))
http://www.delphisources.ru/forum/showthread.php?t=2464 это почитай

~Shapaev~

24.03.2010 20:31

Цитата:

Сообщение от 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

Dosia

24.03.2010 20:36

var a:string;
t:textfile;
begin
assignfile (t,'c:\имяфаила.txt'); {связаться с фаилом в каталоге}
rewrite (t); {подготовить фаил для записи}
writeln (t,a); {пишем данные}
closefile (t); {закрываем фаил}
end.

donka

25.03.2010 01:38

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.

но при записи у меняя он перезаписывает текст заново,а мне надо что б с новой строчки подскажиье пожалуйста как зделать!
Заранее спасибо!С меня +++.

KaE	25.03.2010 01:41

Про rewrite() почитай повнимательнее.

EndLeSSDre@M

25.03.2010 01:45

вот пример который тебе поможет

PHP код:


		
			


  AssignFile(myFile, 'Test.txt');

  WriteLn(myFile, 'Hello');

  WriteLn(myFile, 'World');

  CloseFile(myFile);

И хватит уже флудить и задавать глупые вопросы! это же элементарные вещи! хотя бы в гугл обратись с запросом "Delphi запись в файл" и там будет куча ссылок на то что тебе нужно.

или хотя бы видишь функция называется ReWrite приставка re означает по русски пере- то есть переписать, достаточно было убрать приставку и все стало бы нормально работать!

donka

25.03.2010 18:06

Как зделать что б то что я вводил в Edit1 и в Edit2 записывалась в блокнот на хостинге?
И возможно ли такое?С меня возногрождение.
Писать можно в icq 570-007-400.

Helium

25.03.2010 18:27

Цитата:

Сообщение от donka

Пинч изобретаешь?)

donka

25.03.2010 19:36

Цитата:

Сообщение от Helium

Пинч изобретаешь?)

нет

donka

25.03.2010 19:37

Делаю типо Fake зделаю выложу на античат!

Pr0mo

25.03.2010 19:44

Цитата:

Сообщение от donka

Два варианта:

1) Послать Post запрос скрипту. Скрипт лежить на хостинге, принимая данные - создает файл, куда потом их и записывает.

2) Написать мини ftp сервер. А имеено, необходимо пользоваться функциями подключения к серверу по протоколу ftp, создавать там файл с данными.

Из этого вывод: оба метода достаточно сложны для новичка. Даже, если привести готовые куски кода, то вряд ли разберешься, уж прости :) Бросай ты делать фейки. Сделай что-нибудь полезное! ;)

Tigger

25.03.2010 20:23

Чувак, ты не новичок!
Ты открыл IDE и сразу начал че-то писать, не понимая что делаешь.
Для начала хоть что-нибудь почитай, за тебя никто писать не будет.

Nizhegorodets

25.03.2010 20:32

Цитата:

Сообщение от donka

Делаю типо Fake зделаю выложу на античат!

Ммм...А зачем?

Helium

25.03.2010 21:06

Цитата:

Сообщение от donka

Делаю типо Fake зделаю выложу на античат!

ну вылаживай вылаживай

donka

25.03.2010 23:06

Я фейк делать хочу что б научится пользоваться функциями!

stepashka_

25.03.2010 23:27

Цитата:

Сообщение от donka

Я фейк делать хочу что б научится пользоваться функциями!

Для начала попробуй сделать фейк с отправкой на мыло или icq. ;)

donka

25.03.2010 23:37

на icq умею

Gar|k

25.03.2010 23:37

2 donka похоже в школе вы еще русский язык не проходили :) что-бы выучить язык нужно читать книжки, прикинь.

donka

25.03.2010 23:49

Посоветуйте книжку хорошую!

qaKEP

26.03.2010 00:41

Цитата:

Сообщение от donka

Посоветуйте книжку хорошую!

Миша Фленов "Библия Делфи"
Ты бильдер пишешь? Фейк, фейк....

donka

26.03.2010 19:06

Подскажите как зделать надпись что б она состояла из точек как пароли или из *.
спс.С меня +

TrueBit

26.03.2010 20:13

Цитата:

Сообщение от donka

Подскажите как зделать надпись что б она состояла из точек как пароли или из *.
спс.С меня +

edit1.passwordChar:='*';
Вместо текста будут звёздочки

donka

26.03.2010 22:05

спс работает))

donka

27.03.2010 22:12

чё за ошибка?
acnt2007_R;

TrueBit

27.03.2010 22:16

Цитата:

Сообщение от donka

чё за ошибка?
acnt2007_R;

Где эта ошибка возникает?

donka

27.03.2010 22:23

Цитата:

package AlphaDB2007;

{$R *.res}
{$R 'AlphaDB.dcr'}
{$ALIGN 8}
{$ASSERTIONS ON}
{$BOOLEVAL OFF}
{$DEBUGINFO ON}
{$EXTENDEDSYNTAX ON}
{$IMPORTEDDATA ON}
{$IOCHECKS ON}
{$LOCALSYMBOLS ON}
{$LONGSTRINGS ON}
{$OPENSTRINGS ON}
{$OPTIMIZATION ON}
{$OVERFLOWCHECKS OFF}
{$RANGECHECKS OFF}
{$REFERENCEINFO ON}
{$SAFEDIVIDE OFF}
{$STACKFRAMES OFF}
{$TYPEDADDRESS OFF}
{$VARSTRINGCHECKS ON}
{$WRITEABLECONST ON}
{$MINENUMSIZE 1}
{$IMAGEBASE $400000}
{$DESCRIPTION 'AlphaControls DB-aware pack'}
{$IMPLICITBUILD ON}

requires
vcl,
vclx,
vcljpg,
vcldb,
acnt2007_R;

contains
sDBEdit in 'sDBEdit.pas',
sDBMemo in 'sDBMemo.pas',
sDBLookupComboBox in 'sDBLookupComboBox.pas',
sDBComboBox in 'sDBComboBox.pas',
sDBText in 'sDBText.pas',
sDBLookupListBox in 'sDBLookupListBox.pas',
sDBListBox in 'sDBListBox.pas',
sDBCheckBox in 'sDBCheckBox.pas',
sDBNavigator in 'sDBNavigator.pas',
sRegDB in 'sRegDB.pas',
sDBDateEdit in 'sDBDateEdit.pas',
sDBRadioGroup in 'sDBRadioGroup.pas',
sDBCalcEdit in 'sDBCalcEdit.pas',
sDBRichEdit in 'sDBRichEdit.pas',
acDBTextFX in 'acDBTextFX.pas';

end.

вот это сообщение ошибка тут acnt2007_R; показывается!

Alexandr II

27.03.2010 22:33

Цитата:

package AlphaDB2007;

package acnt2007_R;
?

Fliplab

27.03.2010 22:49

Какая ошибка, конкретно можешь?

donka

27.03.2010 22:56

всё ошибку нашёл!

Fliplab

28.03.2010 00:23

Кароче прежде чем вопрос здесь писать, спрашивай гугл)))

Время: 20:29

Страница 1 из 2

Показывать 40 сообщений этой темы на одной странице