Delphi
|
|
如何使用delphi 7将urdu / arabic语言从文本框保存到数据库
[Google Translator]
How to save urdu / arabic language from text box to database using delphi 7?
modified 24-Apr-19 2:49am.
|
|
|
|
|
This discussion board is using English. Please, respect the rules or use non-English forums.
|
|
|
|
|
Exactly the same way that you would save text in any language.
|
|
|
|
|
There is a program in my C# book that uses the elseif statement. I'd like to do it in Delphi but I'm doubting if Delphi has that statement.
If Delphi doesn't have it what do I do?
Do I just keep nesting ifs?
|
|
|
|
|
|
I just wrote a program and used the BoolToStr() function to convert the boolean value true to a string so I could read it in a WriteLn statement.
Much to my surprise the screen represented true as -1.
Can someone explain?
|
|
|
|
|
Because internally they're numbers, no text.
Bastard Programmer from Hell
If you can't read my code, try converting it here[^]
"If you just follow the bacon Eddy, wherever it leads you, then you won't have to think about politics." -- Some Bell.
|
|
|
|
|
I meant why is boolean true represented as a negative number instead of a positive number. Like in C++ boolean true is represented as 1.
But I guess since true is represented by any non-zero integer I can see why -1 works just as good.
|
|
|
|
|
I'm doing a program that computes the sum and product of the integers from 1 to 5. Weird thing is when I run the program I get the correct answer for the sum. The sum says 15. Correct. But I get the wrong answer for product. I get 6.
I cannot figure out where I'm going wrong:
// This program computes the sum and product of the integers from 1 to 5
program SumAndProduct;
uses
System.SysUtils;
var
i : integer;
sum : integer;
product : integer;
begin
sum := 0;
product := 1;
begin
for i := 1 to 5 do
sum := sum + i;
product := product * i;
end;
WriteLn('The sum is ' + IntToStr(sum));
WriteLn('The product is ' + IntToStr(product));
WriteLn;
WriteLn('Press Enter to quit...');
ReadLn;
end.
|
|
|
|
|
When I comment out the sum := sum + i line then my program does say product is 120.
I'm still trying to figure this out though.
Okay I figured it out. I needed to include another begin and end. I guess those are like nested parentheses.
|
|
|
|
|
I have a textbox and want to save urdu/arabic language to database. When i save textbox input to database it's save question marks ???????? ?????? while input urdu/arabic language in textbox.
How to fix this.?
|
|
|
|
|
Using WideCharToMultibyte API will save in UTF8
|
|
|
|
|
Good afternoon!
I'm making a VCL project with Delphi Tokyo, but I've been problems, because when I've been compiling and executing my appllication, it generates some exceptions with class $c000005. However, I put some breakpoints in the code but it doesn´t function.
when it starts automatically marks the exceptions, and Delphi not specify the line that generate the exception.
Can help me?
Regrards!!!
|
|
|
|
|
"Exception code: C0000005 ACCESS_VIOLATION" means that your code is trying to access a part of memory outside of its process limits. This is usually caused by bad pointer or array indices. Check your code to see where there may be any such possibilities.
|
|
|
|
|
|
Dionisio Huerta Rosario wrote: Delphi not specify the line that generate the exception. This[^] article shows you how to train your Delphi to show the linenumber where the exception occured.
Bastard Programmer from Hell
If you can't read my code, try converting it here[^]
|
|
|
|
|
|
can teach me the source code steganography video on Delphi programming
|
|
|
|
|
I am trying to get two columns in TGridPanel, where user will be able to drag , drop and move around GUI components(TImage) at runtime.
I can drag and drop, however TGridPanel doesn't show scrollbars when I drop a lot of elements. It starts to shrink the ones already init. To have scrollbars I added this grid panel on TScrollBar and changed "Align" property to "alClient".
My plan is to save the final setting of components in a 2D array. My plan is to have at least one component per row to save the row of TGridPanel.
|
|
|
|
|
I have a Main Form which opens up an Archive Form. I'm sending data over from another computer to which shows up on the Main Form right away if the Main Form is open, but if the Archive Form is open I have to close the Form and reopen it for the data to show up. What I was wondering is their away I can get the data to show up on the Archive Form without closing and reopening the Form. Can I do a Refresh, Invalidate or anything like that?
|
|
|
|
|
In general, it should show up behind the active form. It is better you post a proof of concept of your point.
|
|
|
|
|
please help me to use indy
and TIdattachment
god bles you
|
|
|
|
|
As stated in the subject, I'm using XE8 with Castalia. Whenever I'm writing code, I get the message "Castalia exceeded its allowed memory threshold for parse trees" repeatedly in the Messages log. Does anyone know what causes this, or how to go about fixing it?
The United States invariably does the right thing, after having exhausted every other alternative. -Winston Churchill
America is the only country that went from barbarism to decadence without civilization in between. -Oscar Wilde
Wow, even the French showed a little more spine than that before they got their sh*t pushed in.[^] -Colin Mullikin
|
|
|
|
|
I have GUI control TTreeView. My goal is populate the TTreeNodes after reading xml from the file system. My XML looks like:
<A id="parent">
<1 id="child"></1>
<2 id="child"></2>
<AA id="parent">
<hello id="child"></hello>
<bye id="child"></bye>
</AA>
</A>
Note: There could be more levels of parent and child nesting.
I did search internet but nothing strike my mind as a straight forward answer. Would appreciate any help I can get.
|
|
|
|
|
Hi!
procedure LoadDocument( ADocument : IXMLDocument;ATreeview : TTreeView );
procedure AddXMLNode( AXmlNode : IXMLNode;AParent : TTreeNode );
var tvNode : TTreViewNode;
ChildIndex : Integer;
begin
tvNode := ATreeView.Items.Add( AParent,'' );
if AXMLNode.ChildrenCount > 0 Then
begin
for ChildIndex := 0 to AXMLNode.ChildrenCount - 1 do
begin
AddXMLNode( AXMLNode.Children [ ChildIndex ],tvNode );
end;
end;
end;
begin
AddXMLNode( AXMLDocument.RootNode, nil );
end;
Adjust and fix compiler errors.
A
|
|
|
|
|
|
General
News
Suggestion
Question
Bug
Answer
Joke
Praise
Rant
Admin
Use Ctrl+Left/Right to switch messages, Ctrl+Up/Down to switch threads, Ctrl+Shift+Left/Right to switch pages.