сверка, анализ, перепровека

@prnira_sef · Регистрация: 15.04.2011

Author24 — интернет-сервис помощи студентам

Как реализовать что бы программка сверяла содержимое файла (текст) с нужным (забитым в программу) и выдавал результат - проверка прошла удачно, замечены изменения?

@dtsey · 14.09.2011, 18:53

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

Как реализовать что бы программка сверяла содержимое файла (текст) с нужным (забитым в программу) и выдавал результат - проверка прошла удачно, замечены изменения?

Delphi

var
s: string;
n: integer;
F: TStringList;
begin
f:=TStringList.Create;
n:=0;
f.LoadFromFile(Edit1.Text);
repeat
if Memo1.Lines[n]<>f[n] then begin
s:=s+IntToStr(n)+'; ';
end;
n:=n+1;
until (Memo1.Lines.Count=n) or (f.Count=n);
if s='' then begin
MessageBox(0,'Все совпадает!','Информация',MB_OK);
end;
if s<>'' then begin
MessageBox(0,PWideChar(s),'Не совпадают эти строки:',MB_OK);
end;
f.Free;
s:='';
end;

@dtsey · 14.09.2011, 18:55

Вот проект. Писал в RAD Studio.
Качай лучше Prog1, там кое-что исправлено.

@prnira_sef · 14.09.2011, 21:27 **[ТС]**

ругается на

Delphi

1	MessageBox(0,PWideChar(s),'Не совпадают эти строки:',MB_OK);

[Warning] Unit1.pas(48): Suspicious typecast of String to PWideChar
[Error] Unit1.pas(48): Incompatible types: 'WideChar' and 'Char'
[Fatal Error] Correcter.dpr(5): Could not compile used unit 'Unit1.pas'

@dtsey · 14.09.2011, 21:58

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

ругается на

Delphi

1	MessageBox(0,PWideChar(s),'Не совпадают эти строки:',MB_OK);

Потому что у вас делфи более старая. Можете заменить на

Delphi

1	MessageBox(0,PChar(s),'Не совпадают эти строки:',MB_OK);

или

Delphi

1	ShowMessage(s);

Добавлено через 1 минуту

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

Incompatible types: 'WideChar' and 'Char'

Переведите это строку. Она значит, что у вас "не правильные типа: вместо WideChar должно быть Char"

Добавлено через 3 минуты
Кстати, MessageBox экономнее для памяти.
Да, видимо надо Char. Экспериментируйте.

deathNC · 14.09.2011, 22:27

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

ругается на

Delphi

1	MessageBox(0,PWideChar(s),'Не совпадают эти строки:',MB_OK);

PAnsiChar - до Delphi 2007
PWideChar - после Delphi 2007
(на сколько я помню)

@prnira_sef 0 / 0 / 1 Регистрация: 15.04.2011 Сообщений: 84
		1
	сверка, анализ, перепровека 14.09.2011, 16:40. Показов 872. Ответов 5 Метки нет (Все метки) Как реализовать что бы программка сверяла содержимое файла (текст) с нужным (забитым в программу) и выдавал результат - проверка прошла удачно, замечены изменения? 0

	14.09.2011, 22:27

Опции темы