Witam.
Potrzebuję pomocy i mam nadzieję, że tutaj ją uzyskam.
Chciałbym wysłać zawartość TStringListy za pomocą kontrolki THGG.
Nie wiem jak to zrobić, by wysłać ją w jednej wiadomości bez użycia komponentu Memo. Czy byłby w stanie ktoś przerobić kod, by nie była potrzebna kontrolka TMemo?
procedure TForm1.ReadValueList;
var
I : Integer;
Reg : TRegistry;
begin
Reg := TRegistry.Create;
Reg.RootKey := HKEY_LOCAL_MACHINE;
Reg.OpenKey('Software\Value', false);
S := TStringList.Create;
try
Reg.GetValueNames(S);
{pętla}
for I:= 0 to S.Count -1 do
Memo1.Lines.Add(S[I]);
Memo1.Lines.Delete(Memo1.Lines.Count);
TGG1.SendMessage(NUMER, Memo1.Text);
finally
Memo1.Clear;
S.Free;
Reg.Free;
end;
end;
Pozdrawiam!