daily pastebin goal
41%
SHARE
TWEET

Untitled

a guest Feb 14th, 2018 64 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. var L:TStringList;
  2. begin
  3.   L:=TStringList.Create;
  4.   L.Append('Name=Value');
  5.   L.ValueFromIndex[0]:='';
  6.   ShowMessage (L.Text); // <-выдает пустую строку
  7.   L.Free;
  8.    
  9. procedure TStrings.SetValueFromIndex(Index: Integer; const Value: string);
  10. begin
  11.   if Value <> '' then
  12.   begin
  13.     if Index < 0 then Index := Add('');
  14.     Put(Index, Names[Index] + NameValueSeparator + Value);
  15.   end
  16.   else
  17.     if Index >= 0 then Delete(Index);
  18. end;
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
 
Top