BHy4ok » 13 апр 2008, 07:57
3) Единственный момент, не стал мудрить с удалением из массива, а просто удалил повторяющиеся строки из "мемо". Файл 'G' появится в папке с проектом.
На форму кидаешь: Батон, Диалон и Мемо.
Если не разберешься могу скинуть проект целиком.
Числа в файле формата:
3
7
5
...
[syntax='Delphi']
var
s1: string;
F,G: TextFile;
S: string;
a: array[0..100] of integer;
i,n,j,buf,st,k: integer;
begin
memo1.Clear;
if OpenDialog1.Execute then
begin
AssignFile(F,OpenDialog1.FileName);
Reset(F);
While not Eof(F) do
begin
readln(F,S);
a:=StrToINt(S);
inc(i);
end;
st := i-1;
for i := i-1 downto 1 do
begin
for j := 0 to i-1 do
if a[j] < a[j+1] then
begin
buf := a[j];
a[j] := a[j+1];
a[j+1] := buf;
end;
end;
for k:=0 to st do
S1:=S1+IntTostr(a[k])+#13#10;
memo1.Text := (S1);
for n:=0 to Memo1.Lines.Count-1 do
if (memo1.Lines[n]=memo1.Lines[n+1]) then memo1.Lines.Delete(n);
AssignFile(G, 'Sort.txt');
Rewrite(G);
writeln(G, Memo1.Text);
CloseFile(G);
end;
[/syntax]
3) Единственный момент, не стал мудрить с удалением из массива, а просто удалил повторяющиеся строки из "мемо". Файл 'G' появится в папке с проектом.
На форму кидаешь: Батон, Диалон и Мемо.
Если не разберешься могу скинуть проект целиком.
Числа в файле формата:
3
7
5
...
[syntax='Delphi']
var
s1: string;
F,G: TextFile;
S: string;
a: array[0..100] of integer;
i,n,j,buf,st,k: integer;
begin
memo1.Clear;
if OpenDialog1.Execute then
begin
AssignFile(F,OpenDialog1.FileName);
Reset(F);
While not Eof(F) do
begin
readln(F,S);
a[i]:=StrToINt(S);
inc(i);
end;
st := i-1;
for i := i-1 downto 1 do
begin
for j := 0 to i-1 do
if a[j] < a[j+1] then
begin
buf := a[j];
a[j] := a[j+1];
a[j+1] := buf;
end;
end;
for k:=0 to st do
S1:=S1+IntTostr(a[k])+#13#10;
memo1.Text := (S1);
for n:=0 to Memo1.Lines.Count-1 do
if (memo1.Lines[n]=memo1.Lines[n+1]) then memo1.Lines.Delete(n);
AssignFile(G, 'Sort.txt');
Rewrite(G);
writeln(G, Memo1.Text);
CloseFile(G);
end;
[/syntax]