นวัตกรรม สิ่งประดิษฐ์ และเทคโนโลยี

Edit1->Text=RichEdit1->Lines->Strings[0];

Memo1->SelText= "ข้อความที่ต้องการแทรก";

Memo1->SelText= E_temp->Text;

// yOffset values
type
  TCharacterFormat = (CFM_Superscript, CFM_Subscript, CFM_Normal);

procedure RE_SetCharFormat(RichEdit: TRichEdit; CharacterFormat: TCharacterFormat);
var
  // The CHARFORMAT structure contains information about
  // character formatting in a rich edit control.
  Format: TCharFormat;
begin
  FillChar(Format, SizeOf(Format), 0);
  with Format do
  begin
    cbSize := SizeOf(Format);
    dwMask := CFM_OFFSET;
    // Character offset, in twips, from the baseline.
    // If the value of this member is positive,
    // the character is a superscript;
    // if it is negative, the character is a subscript.
    case CharacterFormat of
      CFM_Superscript: yOffset := 60;
      CFM_Subscript: yOffset := -60;
      CFM_Normal: yOffset := 0;
    end;
  end;
  // The EM_SETCHARFORMAT message sets character formatting in a rich edit control.
  // SCF_SELECTION: Applies the formatting to the current selection
  Richedit.Perform(EM_SETCHARFORMAT, SCF_SELECTION, Longint(@Format));
end;

// Examples:
// Beispiele:

// Apply Superscript to the current selection
// Markierte Zeichen hoch stellen
procedure TForm1.Button1Click(Sender: TObject);
begin
  RE_SetCharFormat(RichEdit1, CFM_Superscript);
end;

// Apply Subscript to the current selection
// Markierte Zeichen tief stellen
procedure TForm1.Button2Click(Sender: TObject);
begin
  RE_SetCharFormat(RichEdit1, CFM_Subscript);
end;

var
  slist: TStringList;
  a, b, c: string;
begin
  slist := TStringList.Create;
  try
    slist.StrictDelimiter := True;
    slist.Delimiter := '|';
    slist.DelimitedText := '0000030|Test Testtttttt|aaaa bbbb';
    a := slist[0];
    b := slist[1];
    c := slist[2];
  finally
    slist.Free;
  end;
end;

procedure TForm1.btnFindClick(Sender: TObject);
begin
 FindDialog1.Execute;
end;
...
procedure TForm1.btnReplaceClick(Sender: TObject);
begin
 ReplaceDialog1.Execute;
end;

procedure TForm1.ReplaceDialog1Replace
   (Sender: TObject);
var
 SelPos, SPos, SLen, TextLength: Integer;
 SearchString  : string;
begin
 with TReplaceDialog(Sender) do begin
  TextLength:=Length(Memo1.Lines.Text);

  SPos:=Memo1.SelStart;
  SLen:=Memo1.SelLength;

  SearchString := Copy(Memo1.Lines.Text,
                       SPos + SLen + 1,
                       TextLength - SLen + 1);

  SelPos := Pos(FindText, SearchString);
  if SelPos > 0 then begin
    Memo1.SelStart := (SelPos - 1) + (SPos + SLen);
    Memo1.SelLength := Length(FindText);
 {remove this in the OnFind procedure:}
    Memo1.SelText := ReplaceText;
  end
  else MessageDlg('Could not find "' + FindText +
      '" in Memo1.', mtError, [mbOk], 0);
  end;
end;

function IsStrANumber(const S: string): Boolean;
var
  P: PChar;
begin
  P      := PChar(S);
  Result := False;
  while P^ <> #0 do
  begin
    if not (P^ in ['0'..'9']) then Exit;
    Inc(P);
  end;
  Result := True;
end;

function IsStrANumber(const S: string): Boolean;
begin
  Result := True;
  try
    StrToInt(S);
  except
    Result := False;
  end;
end;

// Example:

procedure TForm1.Button1Click(Sender: TObject);
begin
  if IsStrANumber(edit1.Text) = True then
    ShowMessage('String contains only numbers!');
end;

function ReverseString1(const s: string): string;
var
  i, len: Integer;
begin
  len := Length(s);
  SetLength(Result, len);
  for i := len downto 1 do
  begin
    Result[len - i + 1] := s[i];
  end;
end;

function ReverseString2(const Str: string): string;
// by Ido Kanner
var
  ch: Char;
  i, Size: Integer;
begin
  Result := Str;
  Size   := Length(Result);
  if (Size >= 2) then
  // 2 or more chars
  begin
    // For 1 to middle of the string
    for i := 1 to (Size div 2) do
    begin
      // Lets get the charecter of the current place in the string
      ch := Result[i];
      // Place the Current pos of the char
      // with the char of it's mirror place...
      Result[i] := Result[Size - (i - 1)];
      // In the mirror place we will put char of the
      // Original place... And we switched places !!!
      Result[Size - (i - 1)] := ch;
    end
  end;
end;


function ReverseString3(S: string): string;
// by Rudy Velthuis
var
  P, Q: PChar;
  C: Char;
begin
  Result := S;
  if Length(Result) = 0 then Exit;
  P := PChar(Result);
  Q := P + Length(Result) - 1;
  while P < Q do
  begin
    C := P^;
    P^ := Q^;
    Q^ := C;
    Inc(P);
    Dec(Q);
  end;
end;

procedure ReverseString4(var S: string);
// by Rudy Velthuis
var
  P, Q: PChar;
  C: Char;
begin
  if Length(S) = 0 then Exit;
  P := PChar(S);
  Q := P + Length(S) - 1;
  while P < Q do
  begin
    C := P^;
    P^ := Q^;
    Q^ := C;
    Inc(P);
    Dec(Q);
  end;
end;