喫茶XRAYトップページ

[スレッド全体]
[10573] 文字列取得 後ろから返信　削除
2016/11/30 (水) 20:03:55 Mr.XRAY
検索キーワードは「delphi 文字列取得 後ろから」なので，
後ろから逆順になにか処理したいのかも知れませんが．
それとは関係なく，文字列を逆順にした文字列は，ReverseString 関数で
取得できます．参考までに．
Windows 7 U64(SP1) + Delphi XE(UP1) Pro で動作確認です．

uses
  StrUtils;

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
var
 LText : string;
begin
  Memo1.Lines.Clear;

  LText := '日本ABC';

  //元の文字列
  Memo1.Lines.Add(LText);
  //逆順の文字列
  Memo1.Lines.Add(ReverseString(LText));
  Memo1.Lines.Add('');

  //左から3文字分
  Memo1.Lines.Add(LeftStr(LText, 3));
  //右から1文字分の文字
  Memo1.Lines.Add(RightStr(LText, 1));
end;


[10589] 元号名のリスト返信　削除
2016/12/6 (火) 23:28:12 Mr.XRAY
『元号 西暦 コンボボックス テーブル』

これは delphi とキーワードはありません．
具体的な目的も分かりませんが，参考として．元号のリストの取得方法です．
詳しくは，以下を参考にしてください．

[delphi XE5対応元号選択式日付時刻入力コンポーネントTplDateEdit ; 山本隆の開発日誌]
http://www.gesource.jp/weblog/?p=6202

元号と和暦の対応は，日付のフォーマット，あるいはデコードやエンコードで
対応できると思います．


//=============================================================================
//  元号のリストを作成
//  Delhi XE4以前用
//  MaxEraCountはSysUtilsで定義されている
//=============================================================================
procedure TForm1.Button1Click(Sender: TObject);
var
  i : Integer;
begin
  ListBox1.Items.Clear;

  for i := 1 to MaxEraCount do begin
    if EraNames[i]='' then break;
    ListBox1.Items.Add(EraNames[i]);
  end;
end;

//=============================================================================
//  元号のリストを作成
//  Delhi XE5以降用
//=============================================================================
procedure TForm1.Button1Click(Sender: TObject);
var
  LFormatSettings : TFormatSettings;
  LEraNames       : array of string;
  LMaxEraCount    : Integer;
  i               : Integer;
begin
  ListBox1.Items.Clear;

  LFormatSettings := TFormatSettings.Create;
  LMaxEraCount    := Length(FormatSettings.EraInfo);
  SetLength(LEraNames, LMaxEraCount + 1);

  for i := 0 to LMaxEraCount - 1 do begin
    LEraNames[i + 1] := LFormatSettings.EraInfo[I].EraName;
    ListBox1.Items.Add(LEraNames[i + 1]);
  end;
end;


[10592] Re:元号名のリスト返信　削除
2016/12/8 (木) 13:28:21 Mr.XRAY
> 参考として．元号のリストの取得方法です．

サンプルとして追加しておきました．
Delphi 6 以降用です．
Delphi 5 以前では，元号名を直接，文字列としてセットするしかないと思います．
が，Windows 7 以降であればレジストリから取得する方法もありかも知れません．

[164] [07_元号名のリスト]
http://mrxray.on.coocan.jp/Delphi/plSamples/164_DatePickerComponent.htm#07

[元号選択式日付時刻入力コンポーネント] [元号が変わった場合]
http://mrxray.on.coocan.jp/Delphi/plDateEdit/B_UseMethod.htm#06

[▼次のスレッド]
INCM/CMT
Cyclamen v3.82