掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
Tableの文字列一部置換について (ID:14069)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
データベースの考え方を誤解していたようです。 何とか、下記のコードで期待どうりの結果が得られました。 procedure TFormSub.Button1Click(Sender: TObject); var S1,S2,S3,S4 : String; begin try DMSyaken.User3Table.DisableControls; DMSyaken.User3Table.Close ; S1 := Edit1.Text; S2 := Edit2.Text; DMSyaken.User3Table.Exclusive := False; DMSyaken.User3Table.Open ; DMSyaken.User3Table.First; while not DMSyaken.User3Table.Eof do begin DMSyaken.User3Table.Edit; if DMSyaken.User3Table.FieldByName('Memo03').Text <> '' then begin S3 := DMSyaken.User3Table.FieldbyName('Memo03').AsString; S4 := StringReplace(S3,S1,S2,[rfReplaceAll]); DMSyaken.User3Table.FieldByName('Memo03').Text := S4; DMSyaken.User3Table.Post; DMSyaken.User3Table.Next; end else DMSyaken.User3Table.Next; end; DMSyaken.User3Table.ApplyUpdates; finally DMSyaken.User3Table.EnableControls; end; ShowMessage('変更が修了しました'); end;
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.