Вот у меня такие вопросы: 1.Как сделать так чтобы текст вытягивало напрямую из файла(без загрузки на форму) 2.Как сделать так чтобы копировалась папка(с файлами) по пути обозначенной в файле(см. пункт 1) Мой туториал по UDK: Создание простого платформера
Var f:TextFile; // объявление файловой переменной st:String; // строковая переменная
begin
AssignFile(f,'c:\1.txt'); // привязка названия файла к файловой переменной Reset(f);
While not EOF(f) do // пока не конец файла делать цикл:
begin
ReadLn(f,st); // читать из файла строку
end;
CloseFile(f); // закрыть файл
end;
Для второго вопроса используй функцию
Code
function FullDirectoryCopy(SourceDir, TargetDir: string; StopIfNotAllCopied, OverWriteFiles: Boolean): Boolean; var SR: TSearchRec; I: Integer; begin Result := False; SourceDir := IncludeTrailingBackslash(SourceDir); TargetDir := IncludeTrailingBackslash(TargetDir); if not DirectoryExists(SourceDir) then Exit; if not ForceDirectories(TargetDir) then Exit;
I := FindFirst(SourceDir + '*', faAnyFile, SR); try while I = 0 do begin if (SR.Name <> '') and (SR.Name <> '.') and (SR.Name <> '..') then begin if SR.Attr = faDirectory then Result := FullDirectoryCopy(SourceDir + SR.Name, TargetDir + SR.NAME, StopIfNotAllCopied, OverWriteFiles) else if not (not OverWriteFiles and FileExists(TargetDir + SR.Name)) then Result := CopyFile(Pchar(SourceDir + SR.Name), Pchar(TargetDir + SR.Name), False) else Result := True; if not Result and StopIfNotAllCopied then exit; end; I := FindNext(SR); end; finally SysUtils.FindClose(SR); end; end;
Пример использования:
FullDirectoryCopy('C:\a', 'D:\b');
Сообщение отредактировал Kefir87 - Понедельник, 14 Марта 2011, 23:07
Добавлено (14.03.2011, 23:05) --------------------------------------------- Kefir87, спс. + дам позже ибо сижу с телефона. Наконец-то я доделаю свою прогу.
Сделал текстовый редактор на Delphi и когда сохраняю документ, и открываю его другим текстовым редактором появляются какие-то символы, а если на моем то все ок))
berzegov, ричь эдит используешь? просто это кодировка rich или как ее называют rtf, этот файл откроется вордом или вордпадом, но не блокнотом @noTformaT
Всем привет! Мне нужно сделать так, чтобы строковая переменная могла обрабатывать более 255 символов. Какой тип нужно указать? ShortString, WideString, AnsiString - не помогают. Steel Standoff - 2D аркада. Мои статьи
Пишу на Delphi 7 Portable. Ваш код работает. Но когда я вручную записываю значение переменной "s", вылетает ошибка. Записал код вот так:
Code
program Project1;
{$APPTYPE CONSOLE}
uses SysUtils;
var s: String;
begin s:='qwhqwgdyuqwgydqwbxqwfqwjioqwejfiohxchqwixuwxqjijxhuihqhwnnxqwionxoqijxmxowqadjhduiqwhqwhqwgdyuqwgydqwbxqwfqwjioqwejfiohxchqwi xuwxqjijxhuihqhwnnxqwionxoqijxmxowqadjhduiqwhqwhqwgdyuqwgydqwbxqwfqwjioqwejfiohxchqwixuwxqjijxhuihqhwnnxqwionxoqijxmxowqadjhduiqwhdsfsdfsdf' ;
writeln(s); readln; end.
Такое значение переменной ему не нравится. И ещё, где директиву писать? Под строкой {$APPTYPE CONSOLE}? Steel Standoff - 2D аркада. Мои статьи
Сообщение отредактировал аТнОтХоАн - Пятница, 08 Июля 2011, 07:05
Всем привет! Мне нужно сделать так, чтобы строковая переменная могла обрабатывать более 255 символов. Какой тип нужно указать? ShortString, WideString, AnsiString - не помогают.
ммм, в мое время, была такая фигня, называлась она TurboVision (в то время это было круто), именно там мне пришлось первый раз столкнутся со строками размер которых больше 256. Для этого используют типы данных множества String Collection или банальный PChar. Лучше второй. Но если честно, не представляю строки размером больше 255. Что это? @noTformaT