喫茶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;


[10575] Re:文字列取得 後ろから返信　削除
2016/11/30 (水) 20:49:40 taka
▼ Mr.XRAYさん
> 検索キーワードは「delphi 文字列取得 後ろから」なので，
> 後ろから逆順になにか処理したいのかも知れませんが．
RightStr関数を使いたいだけかも

[10576] Re2:文字列取得 後ろから返信　削除
2016/11/30 (水) 22:23:55 Mr.XRAY
▼ takaさん

> > 検索キーワードは「delphi 文字列取得 後ろから」なので，
> > 後ろから逆順になにか処理したいのかも知れませんが．
> RightStr関数を使いたいだけかも

う〜む，もしかしたら，RightStr 関数のようなのを探していたのかも知れませんね．
あぅ，これ書いていたら，ウィルスチェックソフトが動き出した !
邪魔だ !! ハイ，閉じると....

でも本当に面白いんです．検索キーワード見ていると (^^

「大島みち子」
「PC-9801」
「セキュリティの警告ダイアログ」<--- 今年7月掲載の記事ですが，多いです
この他にもエクセル関係も多いです．

[10585] Re:文字列取得 後ろから返信　削除
2016/12/6 (火) 08:57:03 SO
▼ Mr.XRAYさん

後ろからstrcompしたいだけかも？
[10586] Re2:文字列取得 後ろから返信　削除
2016/12/6 (火) 21:43:31 Mr.XRAY
▼ SOさん

> 後ろからstrcompしたいだけかも？

確かに，そういう用途ってありますよね．
でも，こうやって，検索キーワードでいろいろ想像するのって
面白いと思いせん ?
取り上げられた本人はあまりいい気はしないと思いますが (^^;

[10587] 検索キーワードいじり返信　削除
2016/12/6 (火) 21:51:09 Mr.XRAY
> 検索キーワードは「delphi 文字列取得 後ろから」なので，

ついでに，

『Delphi Excelを起動する』
好きに起動してくださいね．

『ShellExecute Excelが動かない』
Excel は車と違って，そう簡単には動かないと思います．


折角検索して，当サイトの記事を見つけた方，ゴメンナさい．
決して悪意はありせんので．
何らかの解決策を見つけることを祈っています．本当です．

[10588] 検索キーワードいじり返信　削除
2016/12/6 (火) 21:57:27 Mr.XRAY
『delphi コンパイル exeファイル』
『delphi exeファイル作成』

というのがあるんですが，初心者，入門者なのでしょうか．
コンパイルして EXE ファイルを作成する方法が分からないのかも．
解決したのかな ?
陰ながら応援しています．

[10590] Re:検索キーワードいじり返信　削除
2016/12/7 (水) 12:49:18 taki
▼ Mr.XRAYさん
> 『delphi コンパイル exeファイル』
> 『delphi exeファイル作成』
>
> というのがあるんですが，初心者，入門者なのでしょうか．
> コンパイルして EXE ファイルを作成する方法が分からないのかも．
> 解決したのかな ?
> 陰ながら応援しています．

exeファイルが何処に作成されるのかがわからないのかも。

[10591] EXEができる場所返信　削除
2016/12/7 (水) 13:40:24 Mr.XRAY
▼ takiさん

> exeファイルが何処に作成されるのかがわからないのかも。

なるほど．
ということは，Delphi 6 等ではなく，比較的新しいバージョンの Delphi ですね．
いや，ちょっと待ってください．
旧い Delphi でもフォルダを自分で作成して，あるいは既存のフォルダに保存
しないと，デフォルトの Projects になってしまいますよね．
ということは，文字通り EXE の作成場所がわからないのか ?

[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