StringGrid

[W0LF]

Здравствуйте, меня интересует одна "штука": у меня есть StringGrid, нада определить есть ли в первой колонке текст который повторяеться и если есть выдать ошибку. Спс заранее

[Stilet]

Ну знач примерно так:

var j,i:integer;
begin
with StringGrid1 do
 for i:=0 to Cols[0].Count-1 do
  for j:=i+1 to Cols[0].Count-1 do begin
    if cols[0].Strings[j]:=cols[0].Strings[i] then // Повторение найдено
  end;
end;

Не проверял.

[Sazary]

Вроде этого?

procedure TForm1.Button1Click(Sender: TObject);
var
i,j : integer;
b : boolean;
begin
b := true;
for i:=1 to StringGrid1.RowCount-2 do
 begin
 for j:=i+1 to StringGrid1.RowCount-1 do
  if StringGrid1.Cells[0,i]=StringGrid1.Cells[0,j] then
   begin
   b := false;
   break;
   end;
 if not b then break;
 end;
if not b then ShowMessage('Error!');

end;

Опередил
Stilet маленькая опечатка в ифе )

[W0LF]

Еще одно:

function proverka:boolean;
var
i,j : integer;
b : boolean;
begin
b := true;
result:=false;
for i:=1 to form1.StringGrid1.RowCount-2 do
 begin
 for j:=i+1 to form1.StringGrid1.RowCount-1 do
  if form1.StringGrid1.Cells[0,i]=form1.StringGrid1.Cells[0,j] then
   begin
   b := false;
   break;
   end;
 if not b then break;
 end;
if not b then result:=true;
end;


procedure TForm1.LOAD(fn:string);
var
i:integer;
s:tstringlist;
begin
s:=tstringlist.Create;
s.LoadFromFile(fn);
for i:=1 to 29 do begin
  if not proverka=false then begin
ShowMessage('Существуют повторяющиеся команды, исправьте ошибку!');
 break end else
 Form1.StringGrid1.Cells[0,i]:=s.Strings[i-1]
end;
s.Free;
end;


procedure TForm1.SAVE(fn:string);
var
i:integer;
s:tstringlist;
a:array[1..29] of String;
begin
s:=tstringlist.Create;
for i:=1 to 29 do begin
if proverka=false then begin
a[i]:=form1.StringGrid1.Cells[0,i];
s.Add(a[i]);
s.SaveToFile(fn);
end
else begin ShowMessage('Существуют повторяющиеся команды, исправьте ошибку!');
break;
end;
end;
s.Free;
end;

если изменить текст вручную (в файле) то первая повторяющеяся строка всеравно загружаеться в список (при LOAD), а следующие нет... Как это можно исправить?

[Sazary]

Если у вас в гриде нет фиксированной строки, то в цикле по i идите от нуля.

Функция "проверка" у вас заточена под функцию "SAVE", потому что в ней проверяются элементы грида. А в функции "LOAD" вы имеете дело со Стринглистом.

Как вариант: измените "проверку", чтобы она работала со стринглистом. А в функции сохранения сначала помещайте элементы грида в стринглист и вызывайте проверку.

[W0LF]

я не знаю чо де паправить, нечего не выходит (((

[Sazary]

function check(list : TStringList) : boolean;
var i,j : integer;
b : boolean;
begin
b := true;
for i:=0 to list.Count-2 do
 begin
 for j:=i+1 to list.Count-1 do
  if list.Strings[i]=list.Strings[j] then
   begin
   b := false;
   break;
   end;
 if not b then break;
 end;
result := b;
end;



// сохранение
procedure TForm1.Save(fn : string);
var
s : TStringList;
i : integer;

begin
s := TStringList.Create;
for i:=0 to StringGrid1.RowCount-1 do
 s.Add(StringGrid1.Cells[0,i]);
if check(s) then
 s.SaveToFile(fn)
else
 ShowMessage('Error!');

s.Free;
end;

procedure TForm1.Load(fn : string);
var
s : TStringList;
i : integer;
begin
s := TStringList.Create;
s.LoadFromFile(fn);
if check(s) then
 begin
 StringGrid1.RowCount := s.Count;
 for i:=0 to s.Count-1 do
  StringGrid1.Cells[0,i] := s.Strings[i];
 end
else
 ShowMessage('Error!');

s.Free;
end;

[W0LF]

так спс)))
но, а как сделать что бы верхнюю строку не щетало, а начинало со следующей, верхняя у меня фиксированая и не изменяеться..

[Sazary]

procedure TForm1.Save(fn : string);
var
s : TStringList;
i : integer;

begin
s := TStringList.Create;
for i:=1 to StringGrid1.RowCount-1 do
 s.Add(StringGrid1.Cells[0,i]);
if check(s) then
 s.SaveToFile(fn)
else
 ShowMessage('Error!');

s.Free;
end;

procedure TForm1.Load(fn : string);
var
s : TStringList;
i : integer;
begin
s := TStringList.Create;
s.LoadFromFile(fn);
if check(s) then
 begin
 StringGrid1.RowCount := s.Count+1;
 for i:=0 to s.Count-1 do
  StringGrid1.Cells[0,i+1] := s.Strings[i];
 end
else
 ShowMessage('Error!');

s.Free;
end;

[Stilet]

Stilet маленькая опечатка в ифе )

Я случайно...