瀏覽代碼

Initialize string variable.

Margers 1 月之前
父節點
當前提交
bdf2a6087c
共有 1 個文件被更改,包括 1 次插入0 次删除
  1. 1 0
      packages/fv/src/dialogs.inc

+ 1 - 0
packages/fv/src/dialogs.inc

@@ -1769,6 +1769,7 @@ Delta, Anchor, OldCurPos, OldFirstPos, OldSelStart, OldSelEnd: Sw_Integer;
    PROCEDURE SaveState;
    BEGIN
      If (Validator <> Nil) Then Begin                 { Check for validator }
+       OldData := '';                                 { Initialize OldData }
        If Data <> Sw_PString_Empty Then OldData := Data Sw_PString_DeRef;        { Hold data }
        OldCurPos := CurPos;                           { Hold cursor position }
        OldFirstPos := FirstPos;                       { Hold first position }