Отправляет email-рассылки с помощью сервиса Sendsay
  Все выпуски  

RusFAQ.ru: Программирование на Delphi


Информационный Канал Subscribe.Ru


RusFAQ.ru: Программирование на C++ Builder / Delphi

Выпуск № 186
от 09.07.2003, 11:50

Администратор:
Имя: Калашников О.А.
URL: Информационный ресурс
ICQ: 68951340
Россия, Москва
О рассылке:
Задано вопросов: 770
Отправлено ответов: 1403
Активность: 182.2 %
[Задать вопрос >>][Регистрация эксперта >>]
[Поиск в базе][Обсудить на форуме]


 Список экспертов, ответы которых опубликованы в данном выпуске

URiS
Статус: Доверительный
Общий рейтинг: 151.56
[Подробней >>]
ART_43
Статус: Доверительный
Общий рейтинг: 120.22
[Подробней >>]
Bob Johnson
Статус: Профессиональный
Общий рейтинг: 152.03
URL: Программирование
[Подробней >>]


 Краткий перечень вопросов

Вопрос № 764. Привет всем экспертам! У меня просьба посмотрите техт моей проги, а то она у меня ошибку выдает може... (ответов: 3)
Вопрос № 765. Скажите плиз! Как распечатать текст из memo с помощью print dialog и как связать настройки принтера ... (ответов: 1)
Вопрос № 768. Скажите как из текстоваго файла прочитать каждую строчку в отдельную переменную?... (ответов: 3)

Вопросов: 3, ответов: 7


 Вопрос № 764

Привет всем экспертам!
У меня просьба посмотрите техт моей проги, а то она у меня ошибку выдает может подскажете в чем дело.
unit Cod;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Edit1: TEdit;
Edit2: TEdit;
Trans: TButton;
Quit: TButton;
procedure QuitClick(Sender: TObject);
procedure TransClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
z: String;
end;
var
Form1: TForm1;
Str: String;
a: Integer;
z: String;
implementation
{$R *.dfm}
procedure TForm1.QuitClick(Sender: TObject);
begin;
Close;
end;
procedure TForm1.TransClick(Sender: TObject);
begin
for a:=1 to Length(Form1.Edit1.Text) do
begin
z:=Copy(Form1.Edit1.Text,a,1);
str:=str+'&#'+IntToStr(ord(z))+';';
end;
Form1.Edit2.Text:=str;
end;
end.



Вопрос отправлен: 02.07.2003, 07:42
Отправитель: espero

[Следующий вопрос >>] [Список вопросов]

Отвечает URiS

Добрый день, espero!
Для начала бы сказал, какая ошибка.
У меня Delphi 5 и он не нашёл Variants.pas из Uses. Без него отлично работает.
Только нужно строчку
str:=str+'&#'+IntToStr(ord(z))+';';
заменить на
str:=str+'&#'+IntToStr(ord(z[1]))+';';
и всё будет работать.
Это из-за того, что параметр для Ord должен иметь тип символа (Char), а ты вписал туда строчку (String).

*EMan1.4 © Bob Johnson | Expert: URiS (newff.narod.ru)


Ответ отправлен: 03.07.2003, 12:11
Отправитель: URiS


Отвечает ART_43

Приветствую Вас, espero!
Поставь ord(z[1])

Ответ отправлен: 02.07.2003, 09:15
Отправитель: ART_43


Отвечает Bob Johnson

Добрый день, espero!
Единственное, на что можно обратить внимание - это ord(z). Пиши что-то типа ord(z[1]). А вообще, в следующий раз конкретней говори, что за ошибка и где.

* EMan1.4: ---===*** Have your friend the way you would like him to have you ***===---


Ответ отправлен: 03.07.2003, 00:17
Отправитель: Bob Johnson


 Вопрос № 765

Скажите плиз!
Как распечатать текст из memo с помощью print dialog и как связать настройки принтера с ним?
И как искать текст в memo с помощью finddialog?



Вопрос отправлен: 03.07.2003, 13:43
Отправитель: Кирилл

[Следующий вопрос >>] [Список вопросов]

Отвечает URiS

Добрый день, Кирилл!
PrintDialog - это всего лишь форма, оболочка. Сама она печатать не будет. Печатать всё равно придётся тебе самому.
Такие же дела обстоят и с FindDialog. Сам он ничего не ищет. Ты просто обрабатываешь его события. Вот и всё.
С таким же успехом можно создать свои собственные формы и обращаться с ними. А эти сделаны только с целью стандартизации.

*EMan1.4 © Bob Johnson | Expert: URiS (newff.narod.ru)


Ответ отправлен: 04.07.2003, 09:30
Отправитель: URiS


 Вопрос № 768

Скажите как из текстоваго файла прочитать каждую строчку в отдельную переменную?



Вопрос отправлен: 06.07.2003, 11:41
Отправитель: Кирилл

[Следующий вопрос >>] [Список вопросов]

Отвечает URiS

Добрый день, Кирилл!
Так:
var
f: textfile;
s: string;
ts: TStrings;
begin
ts:=TStrings.Create;
AssignFile(f,'file');
Reset(f);
while not EOF(f) do
begin
Readln(f,s)
ts.Add(s);
end;
CloseFile(f);
end;
Вот и всё. В переменной ts у тебя находится текстовый файл.
Только чтобы работать с ней везде, лучше описать её как глобальную.

*EMan1.4 © Bob Johnson | Expert: URiS (newff.narod.ru)


Ответ отправлен: 06.07.2003, 16:51
Отправитель: URiS


Отвечает Bob Johnson

Здравствуйте, Кирилл!
С помощью ReadLn (file, var).

* EMan1.4: ---===*** Have your friend the way you would like him to have you ***===---


Ответ отправлен: 06.07.2003, 17:49
Отправитель: Bob Johnson


Отвечает ART_43

Приветствую Вас, Кирилл!
var a1,a2,a3:string;
f:textfile;
begin
assignfile(f,'aaa.aaa');
reset(f);
readln(f,a1);
readln(f,a2);
readln(f,a3);
closefile(f);
end;

Ответ отправлен: 07.07.2003, 09:26
Отправитель: ART_43



Форма отправки вопроса

Внимание!
Мы рекомендуем открывать рассылку в программе Internet Explorer 5.0+ или отправлять вопросы с сайта по адресу: http://rusfaq.ru/cgi-bin/Message.cgi.

(C) 2002-2003 Команда RusFAQ.ru.

 Персональные данные

Ваше имя:

Ваш e-mail:

Опубликовать мой e-mail в рассылке


 Вопрос и дополнение

Ваш вопрос:


Приложение (если необходимо):


Получить ответов:


 Выбор рассылки

Программисту
Assembler (38)
C / C++ (23)
Perl (4)
Builder / Delphi (18)
Pascal (24)
Basic / VBA (8)
Java / JavaScript (11)
PHP (8)
MySQL / MSSQL (7)
Криптография (5)
WinAPI (6)
Пользователю
Windows 95/98/Me (32)
Windows NT/2000/XP (25)
"Железо" (23)
Поиск информации (17)
Администратору
Windows NT/2000/XP (15)
Linux / Unix (6)
Юристу
Гражданское право (9)
Семейное право (4)
Трудовое право (7)
КоАП (5)

Отправить вопрос всем экспертам выбранной рассылки.




Задать вопрос | Регистрация эксперта | Поиск в базе | Чат | Форумы | Новости
Проект экспертов RusFAQ.ru | Фотоальбом | Virus.RusFAQ.ru | Администрирование
Профессиональная WEB-Студия B.I.T.


Яндекс цитирования
© 2001-2003 Россия, Москва. Авторское право: Калашников О.А.

http://subscribe.ru/
E-mail: ask@subscribe.ru
Отписаться
Убрать рекламу

В избранное