Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Для новичков > Помогите с ошибкой

Автор: Артем1 19.6.2012, 08:07

Добрый день. Помогите пожалуйсто выдаёт ошибку :

Код


var
 f1:textfile;
 St: string;
begin
 St:=Label1.Caption:=meta;  (тут ошибка) помогите ее исправить пожалуйсто.
 AssignFile(f1, '1.txt');
 if FileExists('1.txt') then Append (f1)  else rewrite(f1);
 WriteLn(f1, St);
 CloseFile(f1);
end;
end;

Всем заранее большое спасибо.

Автор: Данкинг 19.6.2012, 09:24

Без текста ошибки даже смотреть не буду. smile

Автор: Артем1 19.6.2012, 09:29

var
f1:textfile;
St: string;
begin
St:=Label1.TEXT; (тут ошибка) помогите ее исправить пожалуйсто.
AssignFile(f1, '1.txt');
if FileExists('1.txt') then Append (f1) else rewrite(f1);
WriteLn(f1, St);
CloseFile(f1);
end;
end;

Автор: Данкинг 19.6.2012, 10:15

Без текста ошибки даже смотреть не буду. smile

Автор: iff 19.6.2012, 10:55

Цитата(Артем1 @ 19.6.2012, 08:07

)

St:=Label1.Caption:=meta;

Это опечатка у вас такая? или просто бред?

Цитата(Артем1 @ 19.6.2012, 09:29

)

St:=Label1.TEXT;

У Label нет свойства Text, только Caption. (Если конечно Label1 это Label.)

Автор: Артем1 19.6.2012, 12:36

Ну а как тогда сделать чтоб с Label сохранялся текст в файл. Заранее спс.

Автор: Keeper89 19.6.2012, 12:38

Убери

Цитата

:=meta

может получится что тебе нужно.

Автор: Артем1 19.6.2012, 12:41

Если можно скинте исправленый код.

Автор: Keeper89 19.6.2012, 13:00

Код


var
 f1:textfile;
begin
 AssignFile(f1, '1.txt');
 if FileExists('1.txt') then Append (f1)  else rewrite(f1);
 WriteLn(f1, Label1.Caption);
 CloseFile(f1);
end;

Сдать за тебя сходить?

Автор: Akella 19.6.2012, 13:10

Читать до просветления: http://forum.vingrad.ru/topic-48020/125.html

Автор: Данкинг 19.6.2012, 13:17

Артем1, а я всё текста ошибка жду. Без этого места себе не нахожу.

Автор: Akella 19.6.2012, 14:18

Ты уже должен сам угадывать тексты ошибок smile