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.
| Вопрос и дополнение |
Ваш вопрос:
Приложение (если необходимо):
Получить ответов:
| Выбор рассылки |
| Программисту 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.
| http://subscribe.ru/
E-mail: ask@subscribe.ru |
Отписаться
Убрать рекламу |
| В избранное | ||
