Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Сохранение из TLabel

Студик © (2006-12-06 21:12:00)
Здравствуйте, уважаемые мыслители языка 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)

Студик (2006-12-07 21:55:00) [1]
Спасибо, буду пробовать!

Джо (2006-12-07 21:43:00) [2]
У него есть индексный свойства Rows и Cols, которые являются наследниками TStrings. А у них, соответственно SaveToFile.

Студик (2006-12-07 21:40:00) [3]
Спасибо, разобрался! Еще вопрос, а как из TString Grid вытащить текст и сохранить?

Desdechado (2006-12-06 21:23:00) [4]
AssignFile
ReWrite
WriteLn( 'Ось' + label.Caption );
CloseFile

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »