Преглед на файлове

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 }