Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2002.07.15;
Скачать: [xml.tar.bz2];

Вниз

Как быстро сохранить инф. из s:string {H+} в file.txt   Найти похожие ветки 

 
mazepa   (2002-06-27 19:00) [0]

В s:string при вкл. Huge String находится что-то типа отсчета, короче обычный текст но очень больших размеров. Как его быстро сохранить?
Заранее благодарен.


 
Victor_Kozel   (2002-06-27 19:08) [1]

Примерно так

procedure Save(aHugeString: string);
var aFile: TFileStream;
begin
aFile := TFileStream.Create("File Name", fmOpenReadWrite);
// или fmCreate
try
aFile.Write(aHugeString[1], Length(aHugeString));
finally
aFile.Free;
end;
end;


 
Anatoly Podgoretsky   (2002-06-27 19:23) [2]


var
F : TextFile;
begin
AssighFile(F,"File.txt");
Rewrite(F);
Write(F,S);
CloseFile(F);
end;


 
mazepa   (2002-06-27 19:33) [3]

А можно ли таким же образом его открыть?
А если файл не совсем текст?
например: текст, value (любое) ???

p.s. про массивы и blockread не будем...


 
Volj   (2002-06-27 19:39) [4]

Если
текст =value,
то рекомендую TIniFile


 
mazepa   (2002-06-27 19:42) [5]

Я знал что будет такой расклад, но надо как нибудь по другому...



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

Форум: "Основная";
Текущий архив: 2002.07.15;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.45 MB
Время: 0.012 c
1-47566
Blacki
2002-06-27 21:55
2002.07.15
Как заскиновать ScrollBar in Memo


3-47112
volph
2002-06-21 10:51
2002.07.15
ADOQuery1.Parameters.AddParameter


1-47289
Бадян
2002-06-29 22:55
2002.07.15
Трабл с TImage


3-47132
AlexNord
2002-06-20 05:13
2002.07.15
IBQuery и фильтрация записей


8-47612
aach
2002-03-11 18:11
2002.07.15
Прозрачность формы





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский