Delphi

// 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.

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.?

can teach me the source code steganography video on Delphi programming

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?

<A id="parent">
  <1 id="child"></1>
  <2 id="child"></2>
  <AA id="parent">
    <hello id="child"></hello>
    <bye id="child"></bye>
  </AA>
</A>