Вверх ↑
Этот топик читают: Гость
Ответов: 3655
Рейтинг: 69
#1: 2007-01-13 16:16:43 ЛС | профиль | цитата
Вот пример
Необходимо сохранение всех данных в одном файле,и последующий вывод их
в соответствующие поля. code_818
карма: 0

0
файлы: 1code_818.txt [1.1KB] [391]
Ответов: 2060
Рейтинг: 28
#2: 2007-01-13 17:10:50 ЛС | профиль | цитата
Вячеслав, Тебе надо использовать вот это.
Add(FileStream,8052183,224,385)
{
}
Add(DataToFile,9178907,224,448)
{
link(Stream,8052183:Stream,[])
}
Схему надеюсь сам додумаешь.

[size=-2]------ Добавлено в 17:10
Вячеслав, есть ещё один способ и даже немного полегче, но он может не всегда подходить.
Add(Ini,8914960,287,238)
{
}
карма: 1

0
Ответов: 3655
Рейтинг: 69
#3: 2007-01-13 17:20:54 ЛС | профиль | цитата
Эдик писал(а):
Тебе надо использовать вот это.
Да это мне известно.
Проблема не в том что бы сохранить ,а в том что бы это потом достать оттуда и разложить по полям.
карма: 0

0
Ответов: 2060
Рейтинг: 28
#4: 2007-01-13 18:05:02 ЛС | профиль | цитата
Вячеслав, используй ini.

[size=-2]------ Добавлено в 18:05
Вячеслав, пробовал с ini сделать схему, но в твоём примере его не получиться использовать. Потому что есть данные больше чем одна строка.
карма: 1

0
Ответов: 3514
Рейтинг: 184
#5: 2007-01-13 19:11:06 ЛС | профиль | цитата
Не очень понял конечно, но

Add(MainForm,8894960,19,105)
{
Left=20
Top=105
Width=655
}
Add(Label,13212042,96,14)
{
Left=235
Top=10
Width=281
Height=17
Caption="Имя диска(оно же имя файла для сохранения данных)"
}
Add(Label,8582912,299,14)
{
Left=120
Top=75
Width=110
Caption="Тип диска"
}
Add(Label,6877185,411,14)
{
Left=280
Top=75
Width=130
Caption="Кмпания производитель"
}
Add(Label,5986698,509,14)
{
Left=470
Top=75
Width=125
Caption="Содержание"
}
Add(RichEdit,10331597,516,119)
{
Left=425
Top=100
Width=225
Strings=#20:Инсталяционный диск |22:Содержит две программы|16:1)Windows XP PRO|22:2)Мелкософт Офис 2003.|
}
Add(RichEdit,5171188,299,119)
{
Left=80
Top=100
Width=180
Strings=#2:CD|
}
Add(RichEdit,2598200,411,119)
{
Left=265
Top=100
Width=155
Strings=#9:Мелкософт|
}
Add(ComboBox,9060363,96,91)
{
Left=145
Top=30
Width=445
Height=21
Strings=#14:Windows XP PRO|
link(onClick,14017626:doString,[(231,104)(231,258)])
}
Add(InfoTip,8490687,12,70)
{
Info=#37:Имена файлов для ввода вывода данных|
HAlign=0
Width=218
Height=102
}
Add(InfoTip,1246073,264,70)
{
Info=#47:Неоходимо сохранение всех данных в одном файле.|
Width=330
Height=95
}
Add(FormatStr,14017626,334,252)
{
DataCount=3
Mask="%1 %2 %3"
link(onFString,13663118:doAdd,[(374,258)(374,286)])
link(Str1,5171188:Text,[(340,205)(305,205)])
link(Str2,2598200:Text,[(347,205)(417,205)])
link(Str3,10331597:Text,[(354,205)(522,205)])
}
Add(StrList,13663118,383,280)
{
link(onChange,13663118:doSave,[(425,286)(425,356)(371,356)(371,321)])
link(FileName,9060363:String,[(396,208)(116,208)])
}

[size=-2]------ Добавлено в 19:11
Ещё вот эти фигни нужно приспособить при открытии и сохранении

Add(StrCat,11980615,96,350)
{
}
Add(BlockFind,3547243,103,413)
{
}
карма: 0
0
Ответов: 3655
Рейтинг: 69
#6: 2007-01-13 23:35:14 ЛС | профиль | цитата
Астрамак, В этом случае проще применить таблицу.
карма: 0

0
Ответов: 2
Рейтинг: 0
#7: 2012-04-11 18:23:01 ЛС | профиль | цитата
Можно сделать сохранение в ini файл. Но загружать их в таблицу.
карма: 0

0
Ответов: 16884
Рейтинг: 1239
#8: 2012-04-11 18:53:17 ЛС | профиль | цитата
Письмо нашло адресата через 5 лет.
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
8
Сообщение
...
Прикрепленные файлы
(файлы не залиты)