掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
Tableの文字列一部置換について (ID:14065)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
何時も利用させて頂いています。 初歩的な悩みですが、どなたかご教示下さい DLPro,XP2Pro、BDEで初歩的なデータベースを作成中です モジュールにTQUERYを配置し、SQLを発行してデータモジュールのONCREATE時にUser3テーブルから、Memo03にあるTEXTをListboxに追加しています。 この、Memo03のTextの一部を変更しようと試みていますが、うまくいきません。コードは、以下の通りに記載しています。どなたか、ご教示願います。 ちなみに、やりたいことは、例えば、User03Tableのmemo03に’今日は快晴’と記載されていたものを’昨日は快晴’と変更したい場合です。 初心者なので、うまく説明できませんが、よろしくお願いします。 procedure TFormSub.Button1Click(Sender: TObject); var S1,S2,S3 : String; N : Integer; begin S1 := Edit1.Text; S2 := Edit2.Text; DMSyaken.User3Table.Active := True; DMSyaken.User3Table.Open; DMSyakenManager.DMSyaken.User3Table.First; for N:= 0 to DMSyaken.User3Table.RecordCount-1 do begin DMSyaken.User3Table.Edit; S3 := DMSyaken.User3Table.Fields[14].AsString; S3 := StringReplace(S3,S1,S2,[rfReplaceAll]); DMSyaken.User3Table.FieldByName('Memo03').AsString := S3; DMSyakenManager.DMSyaken.User3Table.Post; DMSyaken.User3Table.Next; end; DMSyaken.User3Table.Close; end;
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.