проблема с Memo

[KlErik]

Короче делаю прогу с мемо,и при нажатии кнопки должен выводиться текст, все нормально все выводиться, но только в каждой строке исчезают несколько последних символов, понятно что проблема в свойствах мемо, подскажите как изменить чтобы выводился весь текст!

[Shuraken]

Покажи код, как ты выводишь в мемо текст.

[ZhekON]

ты ограничивал переменную типа String например так String[50]?

[KlErik]

var
f: TextFile;fName: String[80]; // èìÿ ôàéëà
buf: String[80]; // áóôåð äëÿ ÷òåíèÿ èç ôàéëà
procedure TForm1.Button1Click(Sender: TObject);
begin
fName :='c:\data.txt'; AssignFile(f, fName);
Reset(f); // îòêðûòü äëÿ ÷òåíèÿ
if IOResult <> 0 then begin
MessageDlg('Îøèáêà äîñòóïà ê ôàéëó' + fName,mtError,[mbOk],0); exit; end;
// ÷òåíèå èç ôàéëà
while not EOF(f) do begin
readln(f, buf); // ïðî÷èòàòü ñòðîêó èç ôàéëà
Memo1.Lines.Add(buf); // äîáàâèòü ñòðîêó â ïîëå Memo1
end;
CloseFile(f);
end;

[zetrix]

Вот оно и ограничение - buf: String[80], сделай просто buf: String - и всё нормально должно быть.

Кстати: fName: String[80]; - а это зачем? Имя файла может быть до 256 символов + путь = полное имя файла может быть намного больше 80 символов. - это так, замечание

P.S.: в коде не видно, но ты где-нибудь писал {$I-} ? А то if IOResult <> 0 then... тебе ничем не поможет.

[Klint]

В программе используется загрузка текста из файла в поле memo. При запуске программы в поле memo отображается всё верно, но при выполнении команды присвоения переменной значения строки в которой содержится знак ‘=’, переменная принимает значение только того, что после этого знака.
Например:
В memo выглядит так: set=password
После присвоения переменной (командой Memo.Lines.ValueFromIndex[]), значение переменной выглядит так: password

В чём проблема?

[SERG1980]

Сообщение от KlErik

var
f: TextFile;fName: String[80]; // èìÿ ôàéëà
buf: String[80]; // áóôåð äëÿ ÷òåíèÿ èç ôàéëà
procedure TForm1.Button1Click(Sender: TObject);
begin
fName :='c:\data.txt'; AssignFile(f, fName);
Reset(f); // îòêðûòü äëÿ ÷òåíèÿ
if IOResult <> 0 then begin
MessageDlg('Îøèáêà äîñòóïà ê ôàéëó' + fName,mtError,[mbOk],0); exit; end;
// ÷òåíèå èç ôàéëà
while not EOF(f) do begin
readln(f, buf); // ïðî÷èòàòü ñòðîêó èç ôàéëà
Memo1.Lines.Add(buf); // äîáàâèòü ñòðîêó â ïîëå Memo1
end;
CloseFile(f);
end;

А может удобней загружать файл

memo1.Lines.LoadFromFile('c:\data.txt');

[SERG1980]

Сообщение от Klint

В программе используется загрузка текста из файла в поле memo. При запуске программы в поле memo отображается всё верно, но при выполнении команды присвоения переменной значения строки в которой содержится знак ‘=’, переменная принимает значение только того, что после этого знака.
Например:
В memo выглядит так: set=password
После присвоения переменной (командой Memo.Lines.ValueFromIndex[]), значение переменной выглядит так: password

В чём проблема?

Попробуйте так:

var s:string;

 s:=memo1.Lines.Strings[1];

[Klint]

2 SERG1980: Большое спасибо теперь работает.

[Arigato]

Небольшое замечание.
Проверку if IOResult <> 0 then лучше делать тогда, когда работа с файлом завершена и файл закрыт.
Могут возникнуть ошибки и во время чтения из файла.
А код, работающий с файлом, заключай в следующую конструкцию:

{$I-}
...
{$I+}
if IOResult <> 0 then ...

Если хочешь проверить существование файла, то используй функцию FileExists (FileName)