Скачать: CL | DM;

Сохранение из TLabel   Найти похожие ветки 

← →
Студик ©   (2006-12-06 21:12) [0]

Здравствуйте, уважаемые мыслители языка Object Pascal! У меня к вам как обычно один нескромненький вопрос. Уж извините за назойливость, и конечно если у вас есть свобоная минутка дайте мне ответ вот на какой вопрос: есть программа показывающая информацию о системных ресурсах (признаюсь честно, это мой курсач) к сожаление я его нашел в великом и могучем интернете. Да, так уж получилось, что учусь я на программном обеспечении, а зарабатываю рекламой в нете. Ну и собственно вопрос: вся инфа в этой проге хранится в TLabel,
ну т.е. при инициализации приложения в компонентам TLabel присваиваются соответствующие кэпшены. Но препод мне говорит, что прога на 3 потянет, но вот только нужно сделать сохранение отчета в .txt файле. Почитав литру (немного), я понял, что нужно наверное создать массив, а потом уж из  него элементы в текстовый файл отправлять, но я нигде ни нашел, как из TLabel можно извлеч текст и куда-то его сохранить ( в данном случае в .txt файл)? Вот и прошу у вас помощи в этом вопросе, и если не трудно, то покажите на конкретном примере, ниже я приведу небольшой кусок кода, и если не трудно, то покажите на нем как это реализовать.

// Директория Windows
PRes := StrAlloc(255);
Res := GetWindowsDirectory(PRes, 255);
if Res > 0 then WinDir.Caption := PRes;
// системная директория Windows
Res := GetSystemDirectory(PRes, 255);
if Res > 0 then winSysDir.Caption := PRes;
// OC
VerInform.dwOSVersionInfoSize := SizeOf(TOSVersionInfo);
BRes := GetVersionEx(VerInform);
if BRes then
with verInform do case dwPlatformId of
   VER_PLATFORM_WIN32_WINDOWS :
   if dwMinorVersion=0 then strok := "Windows 95" else strok := "Windows 98";
   VER_PLATFORM_WIN32_NT : strok := "Windows NT";
   VER_PLATFORM_WIN32s : strok := "Win 3.1 with Win32s"
 end;
oswinfo_.Caption :=strok+" "+inttostr(verinform.dwmajorversion)+"."+inttostr(verinform.dwminorversion)+" "+verinform.szCSDVersion;
build.Caption:="build "+inttostr(verinform.dwBuildNumber)

---

← →
Desdechado ©   (2006-12-06 21:23) [1]

AssignFile
ReWrite
WriteLn( "Ось" + label.Caption );
CloseFile

---

← →
Студик ©   (2006-12-07 21:40) [2]

Спасибо, разобрался! Еще вопрос, а как из TString Grid вытащить текст и сохранить?

---

← →
Джо ©   (2006-12-07 21:43) [3]

У него есть индексный свойства Rows и Cols, которые являются наследниками TStrings. А у них, соответственно SaveToFile.

---

← →
Студик ©   (2006-12-07 21:55) [4]

Спасибо, буду пробовать!

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.056 c