Строки...

[Nikik]

не получаеться перевести Delphi код в Pascal ОС windows 7 выдает ошибки при копиляции

uses crt;
var
Form1: TForm1;
M:array[1..80] of char;
Mps: array[1..80] of char;
i,t,dlina,ii,j,k,n,kol_vo,chislo,fi rst,last:integer;
obmen:char;
F:TextFile;
implementation

{$R *.dfm}

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char); //ввод с клавиатуры
begin
case key of
'a'..'z':
begin
M[i]:=(key); i:=i+1;
end;
' ':
begin
M[i]:=(key); i:=i+1;
end;
'.':
begin
M[i]:=(key); i:=i+1;
end;

chr(8): if i<>1 then i:=i-1;
else key:=chr(0);
end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
Memo1.Clear;
Memo1.Visible:=true;
AssignFile(F,'file.txt'); //создаем файл
{$I-}
Rewrite(F);
{$I+}
if IOResult<>0 then
begin
showmessage('действие не удалось');
exit;
end;
CloseFile(F);

chislo:=0; //находим длину
for ii:=1 to i-1 do
begin
if (M[ii]='.') then chislo:=chislo+1;
if (M[ii]='.') and (chislo=1) then dlina:=ii-1;
end;

AssignFile(F,'file.txt');
{$I-}
Append(F);
WriteLn(F,'text length : ',dlina);
Reset(F);
Memo1.Lines.LoadFromFile('file.txt' );
{$I+}
if IOResult<>0 then
begin
showmessage('действие не удалось');
exit;
end;
CloseFile(F);

k:=1; //последнее слово
j:=dlina;
while ((M[j]=' ')and (j>0)) do j:=j-1;
while ( (M[j]<>' ') and (j>0)) do
begin
Mps[k]:=M[j];
j:=j-1;
kol_vo:=k;
k:=k+1;
end;

n:=1;
k:=kol_vo;
while n<k do
begin
obmen:=Mps[n];
Mps[n]:=Mps[k];
Mps[k]:=obmen;
n:=n+1;
k:=k-1;
end;

AssignFile(F,'file.txt');
{$I-}
Append(F);
Write(F,'last word : ');
for k:=1 to kol_vo do Write(F,Mps[k]);
Reset(F);
Memo1.Lines.LoadFromFile('file.txt' );
{$I+}
if IOResult<>0 then
begin
showmessage('действие не удалось');
exit;
end;
CloseFile(F);

//сравнение
AssignFile(F,'file.txt');
{$I-}
Append(F);
WriteLn(F);
WriteLn(F,'result : ');

j:=dlina;
while ((M[j]=' ')and (j>0)) do j:=j-1;
i:=1;
while i<=(j-kol_vo) do
begin
Write(F,' ');
if M[i]=' ' then i:=i+1;
first:=i;
while (M[i]<>' ') do i:=i+1;
last:=i-1;
if (last-first+1)<>kol_vo then
begin
Write(F,M[first]);
for ii:=first+1 to last do
begin
if (M[ii]<>M[first]) then
Write(F,M[ii]);
end;
//Write(F,' ');
end
else
begin
i:=first;
chislo:=0;
k:=1;
while k<=kol_vo do
begin
if M[i]<>Mps[k] then chislo:=chislo+1;
i:=i+1;
k:=k+1;
end;
if chislo<>0 then
begin
Write(F,M[first]);
for ii:=first+1 to last do
if (M[ii]<>M[first]) then Write(F,M[ii]);
end
else i:=last+1;
end;
i:=i+1;
end;

Reset(F);
Memo1.Lines.LoadFromFile('file.txt' );
{$I+}
if IOResult<>0 then
begin showmessage('действие не удалось');
exit;
end;
CloseFile(F);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin //сброс
Memo1.Clear;
dlina:=0;
edit1.Text:='';
i:=1;
n:=0;
k:=0;
n:=0;
kol_vo:=0;
chislo:=0;
first:=0;
last:=0;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
i:=1;
end;

end.

[Don Karleone]

конечно будет выдавать ошибки, хотя бы вот в этих строках:

Form1: TForm1;

{$R *.dfm}

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);

ну и дальше по коду там еще много подобных вещей

[Nikik]

мне стоит их убрать?

[Stilet]

мне стоит их убрать?

Да. Всю программу втопку. Чтоб перейти с формы делфи на классический паскаль придется как минимум 40-50% поубирать, остальное поредактировать.
Лучше скажи какая задача, нашо тебе это надобно.

[Nikik]

Слова текста из малых латинских букв записаны не менее чем через один пробел ;текст оканчивается точкой .Без использования конструкции string:
a) написать программу ввода такого текста с клавиатуры;
б) напечатать все слова ,отличающиеся от последнего слова ,и совпадающие с начальным отрезком алфавита (a , a b ,a b c


задача вроде несложна но гемора много ... как бэ допуск на экзамен)))

и еще были написаны программы на оси хрюши перешел на севен программы работают ...но pas файлы выдают ошибку к чему это?

[Пепел Феникса]

какую ошибку и где?

[Nikik]

почти во всех програмках file not found...

[Пепел Феникса]

вы проекты сохраняете как положено?
все файлы проекта сохранены?(*.dfm например)
(или эта ошибка во время работы программы?)

[Don Karleone]

Сообщение от Пепел Феникса

вы проекты сохраняете как положено?
все файлы проекта сохранены?(*.dfm например)
(или эта ошибка во время работы программы?)

ему требуется перевести код из Delphi в Pascal. А он его просто скопировал вместе со всеми обработчиками событий типа TForm1.Button1Click.

[Пепел Феникса]

насчет этого ему же сказали уже.