September 16th, 2004, 03:49 AM
Help I'm stuck
Hi I am trying to modify a program used for msg transfer, once the msg is transfered I then have the option to delete the original msg. this is what I have.....
procedure TMainForm.DeleteMessage_ButtonClick(Sender: TObject);
msgtxt:array [0..254] of char;
fullname:=Message_Directory + '\' + message_name;
if not message_transferred then
StrFmt(msgtxt,'You must transfer the message to at least one target before the message can be deleted',[fullname]);
response:=MessageDlg('Are you sure you want to delete this message?',
if (response = mrCancel) then
if not DeleteFile(fullname)then
StrFmt(msgtxt,'DeleteFile failed for ''%s''',[fullname]);
MainMemo.Lines.SaveToFile(Archive_Directory + '\' + message_name);
if Files_ComboBox_Update then
Files_ComboBox.Text:='No Message Selected'
Files_ComboBox.Text:='No Messages Present';
The line in red is not right but I just cant see what is wrong (must be old age) any help would be great..
September 16th, 2004, 04:07 PM
Space between then and begin perhaps?
Up the Irons
What Would Jimi Do? Smash amps. Burn guitar. Take the groupies home.
"Death Before Dishonour, my Friends!!" - Bruce D ickinson, Iron Maiden Aug 20, 2005 @ OzzFest
Down with Sharon Osbourne
"I wouldn't hire a butcher to fix my car. I also wouldn't hire a marketing firm to build my website." - Nilpo
September 16th, 2004, 11:50 PM
Sorry that was the way I typed the msg the "begin" is on a new line.
Originally Posted by Scorpions4ever