Вопросы по Delphi/Pascal

[Thresh]

Написал кроссворд на Delphi, при запуске ни каких ошибок не выдаёт. Но при заполнении кроссворда есть проблема: когда записываю ответы в поля он их принимает, но при вводе 13 или 14 слова (их всего у меня 14 слов) он стирает 13 слово, но при этом он показывает что слово было записано правильно. В чём проблема?

[Jack Boss]

Цитата: Сообщение от Thresh Написал кроссворд на Delphi, при запуске ни каких ошибок не выдаёт. Но при заполнении кроссворда есть проблема: когда записываю ответы в поля он их принимает, но при вводе 13 или 14 слова (их всего у меня 14 слов) он стирает 13 слово, но при этом он показывает что слово было записано правильно. В чём проблема?

Извини, конечно, но телепатов тут нет
По твоему описанию вопросов возникает больше чем ты поставил.
Кто такой "ОН", который стирает слова и при этом показывает, что было записано правильно? И что за поля у твоего кроссворда?
Короче, если хочеш помощи, то пожалуйста сформулируй проблему по конкретней, а то щас все выглядит глубоко абстрактно...

[RUSik]

Ребята помогите с программой очень надо вот есть такой код но происходит затык на месте где текст синий не знаю что делать нужна ваша помощь спецы зарание огромное спасибо!!!


unit MainUnit;

interface

uses
inifiles, Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, IdComponent, IdTCPConnection, IdTCPClient, IdMessageClient,
IdSMTP, ComCtrls, StdCtrls, Buttons, ExtCtrls, IdBaseComponent, IdMessage,
IdExplicitTLSClientServerBase, IdSMTPBase;

type
TMailerForm = class(TForm)
MailMessage: TIdMessage;
pnlTop: TPanel;
pnlBottom: TPanel;
ledHost: TLabeledEdit;
Body: TMemo;
ledAttachment: TLabeledEdit;
btnAttachment: TBitBtn;
SMTP: TIdSMTP;
ledFrom: TLabeledEdit;
ledTo: TLabeledEdit;
ledCC: TLabeledEdit;
ledSubject: TLabeledEdit;
btnSendMail: TBitBtn;
StatusMemo: TMemo;
AttachmentDialog: TOpenDialog;
procedure btnSendMailClick(Sender: TObject);
procedure SMTPStatus(ASender: TObject; const AStatus: TIdStatus;
const AStatusText: String);
procedure btnAttachmentClick(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
private
procedure GetSettings;
procedure SaveSettings;
public
{ Public declarations }
end;

var
MailerForm: TMailerForm;

implementation

{$R *.dfm}

procedure TMailerForm.btnSendMailClick(Sender: TObject);
begin
StatusMemo.Clear;

//setup SMTP
SMTP.Host := ledHost.Text;
SMTP.Port := 25;

//setup mail message
MailMessage.From.Address := ledFrom.Text;
MailMessage.Recipients.EMailAddresses := ledTo.Text + ',' + ledCC.Text;

MailMessage.Subject := ledSubject.Text;
MailMessage.Body.Text := Body.Text;

if FileExists(ledAttachment.Text) then
TIdAttachment.Create(MailMessage.MessageParts, ledAttachment.Text);

//send mail
try
try
SMTP.Connect();
SMTP.Send(MailMessage);
except on E:Exception do
StatusMemo.Lines.Insert(0, 'ERROR: ' + E.Message);
end;
finally
if SMTP.Connected then SMTP.Disconnect;
end;

end; (* btnSendMail Click *)

procedure TMailerForm.SMTPStatus(ASender: TObject; const AStatus: TIdStatus;
const AStatusText: String);
begin
StatusMemo.Lines.Insert(0,'Status: ' + AStatusText);
end; (* SMTP Status *)

procedure TMailerForm.btnAttachmentClick(Sender: TObject);
begin
if AttachmentDialog.Execute then
ledAttachment.Text := AttachmentDialog.FileName;
end;

procedure TMailerForm.FormCreate(Sender: TObject);
begin
GetSettings;
end;

procedure TMailerForm.FormClose(Sender: TObject; var Action: TCloseAction);
begin
SaveSettings;
end;

procedure TMailerForm.GetSettings;
var
ini : TIniFile;
begin
Ini := TIniFile.Create(ChangeFileExt(Application.ExeName, '.ini'));
try
ledHost.Text := ini.ReadString('SMTP','Host','');

ledFrom.Text := ini.ReadString('MAIL','From','');
ledTo.Text := ini.ReadString('MAIL','To','');
ledCC.Text := ini.ReadString('MAIL','CC','');
finally
ini.Free;
end;
end; (* GetSettings *)

procedure TMailerForm.SaveSettings;
var
ini : TIniFile;
begin
Ini := TIniFile.Create(ChangeFileExt(Application.ExeName, '.ini'));
try
ini.WriteString('SMTP','Host',ledHost.Text);

ini.WriteString('MAIL','From',ledFrom.Text);
ini.WriteString('MAIL','To',ledTo.Text);
ini.WriteString('MAIL','CC',ledCC.Text);
finally
ini.Free;
end;
end; (* SaveSettings *)

end.

[scromniaga]

Дай код кроссворда и мы тебе поможем.
Я как-то писал кроссворд на Visual Basic. У меня никаких проблем не было. Не мудри, напиши в Visual Basic простейший код и кайфуй.

[Thresh]

Проблему решил, была просто буква пропущена.

[Ragimovich]

А вот ХЗ че ты там напортачил в визуальной части!
У меня все отправилось. Правда я реализовал только ту функцию, к-ую как ты говоришь вызывает ошибку.
Выложи весь проект. Проще будет. Кстати какая Делфа то? Я в 7 работаю.

[ErrorMs]

Цитата: Сообщение от Sheez Решил перенести прожекты с Delphi7 на Delphi 10 Lite она же BDS2006, не получается установить fr 2.52 . Может кто адаптировал уже ? Поделитесь плиз.

Есть 4 версия FastReport, там уже есть поддержка BDS 2006. смотри в компонентах, там есть...

[VNavigator]

Удалите сообщение, по ошибке не туда написал. Сорри

Не давно начал изучать Delphi. Возник вопрос. Что такое типизированные и нетипизированные файлы? Чем они отличаются между собой и чем отличаются от текстовых? Если можно в двух словах и с примерами. В книге написанно, но я не очень хорошо понимаю понятие.

[VitSSS]

Пожалуйста, подскажите.

Как на Delphi написать процедуру перечсета checksum, которую делает LordPE ???

Ищу PeLib.pas, PeLib.dcu !

[Sheez]

Цитата: Сообщение от ErrorMs Есть 4 версия FastReport, там уже есть поддержка BDS 2006. смотри в компонентах, там есть...

Про 4 знаю. Есть готовая программа, к ней прикручена куча отчетов, все разом переделывать нереально, вопрос сводится к тому что нужен FastReport 2.56

[wellwisher]

Цитата: Сообщение от mcdie fedotov глянь Событие ADOConnection.OnBeforeDisconnect

Это когда ты сам рвешь соединение (терминируешь).
Ловить надо ADO Error objects, значит инициировать какие-то операции.
P.S. : Обучение чему-то ради обучения - пустая трата времени (денег, сил..). ДЛя начала поучаствуй в любом проекте (за самое скромное вознаграждение, проект мико-масштаба). Конкретный пример : выясняется, что надо написать обработку для 1С 8 - если будешь объяснять, что это можно сделать и на С# или Delphi, но надо долго думать как сделать - тебя не поймут. Или на сайтике заказчика наваяли на PHP (FreeBSD) - но кое-что надо быстро переделать - то же самое.
По работе и инструмент.

[MBZero]

У меня следующий вопрос: Что нужно сделать на делфи чтобы дапустим при нажатии кнопки(Button) на форме создавался компонент? Причём именно создавался а не выходил из инвизибла.
Мне это нужно для того чтобы программа не тормазила, т.е. компонентов у меня будет очень-очень много, поэтому я решил принять оптимальное решение, но одна проблема я незнаю как реализовать выше написанный вопрос.

P.S. Буду очень признателен если приведёте пример кода программы.

[SecurAdmin]

Цитата: Сообщение от VitSSS Пожалуйста, подскажите. Как на Delphi написать процедуру перечсета checksum, которую делает LordPE ??? Ищу PeLib.pas, PeLib.dcu !

С такими вопросами иди на кряклаб
Там тебе помогут...

[ilyaae]

Добрый день. Хочу сделать фильтр на датасет. Но у меня не получается отфильтровать по части слова.
Filter='name='+'ки', хочется чтоб выбирало все значения которые начнаются на ки, подскажите как лучше сделать. Вариант использовать sql и использовать like не очень хочется. Заранее спасибо.