つづき

解決

レッド 2005-05-26 08:28:35 No: 15072

さきほどの続きなんですが、そのeditに入力した数字を修正というか削除するにはどうすればいいですか？

Syake 2005-05-26 09:12:54 No: 15073

削除が先程入力した数値なら
Delete？だったかな、使えばよかったような。
例えば削除専用のButtonのNameがBtnDeleteとしたら
BtnDeleteOnClickで
Delete(Edit1.text,Length(Edit1.Text),1);
とか
全て削除するなら
NameをBtnClearとしたら
BtnClearOnClickで
Edit1.Text := '';

もっとも先程と同じように共通のOnClickイベントにして
if (sender as TButton).Name = 'BtnDelete' then
begin
・・・
end else if (sender as TButtn).Name = 'BtnClear' then
begin
・・・
end else begin
・・・数値を入力する例の記述
end;
などといった方法も良いのかな？

ゴルゴ 2005-05-26 09:31:35 No: 15074

{ すべて削除 }
Edit1.Clear;

ゴルゴ 2005-05-26 09:45:35 No: 15075

{ 末尾から一個ずつ削除 }
procedure TForm1.DelBtnClick(Sender: TObject);
var
  S: String;
begin
  S := Edit1.Text;
  Delete(S, Length(S), 1);
  Edit1.Text := S;
end;

レッド 2005-05-26 10:08:58 No: 15076

またまたゴルゴさん、Syakeさんありがとうございます。お二人の方法やってみたらできました。ゴルゴさんの末尾からの方法を参考にしました。ほんとにありがとうございます。

Syake 2005-05-26 17:10:16 No: 15077

解決ですね。
また間違ってましたね。
>Delete(Edit1.text,Length(Edit1.Text),1);
は、変数パラメータに定数オブジェクトを渡すことはできません。
と、怒られてしまいますね。

目くらでやったらいかんと思いつつ、またやてしまいました。
すいませんでした。