つづき

解決

レッド 2005-05-26 08:28:35 No: 15072 IP: [192.*.*.*]

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

編集削除

Syake 2005-05-26 09:12:54 No: 15073 IP: [192.*.*.*]

削除が先程入力した数値なら
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 IP: [192.*.*.*]

{ すべて削除 }
Edit1.Clear;

編集削除

ゴルゴ 2005-05-26 09:45:35 No: 15075 IP: [192.*.*.*]

{ 末尾から一個ずつ削除 }
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 IP: [192.*.*.*]

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

編集削除

Syake 2005-05-26 17:10:16 No: 15077 IP: [192.*.*.*]

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

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

編集削除