Hallo marabu
ich habe dein beispiel gerade getestet:
Delphi-Quellcode:
procedure CopyRowsContaining(sg, sgResult: TStringGrid; search: String);
var
i: Integer;
begin
ClearGrid(sgResult);
with sg do
for i := FixedRows to Pred(RowCount) do
if AnsiContainsText(Rows[i].Text, search) then
AppendRow(sgResult, Rows[i]);
end;
procedure TForm1.Button2Click(Sender: TObject);
var
s: String;
begin
s := '';
if InputQuery('Suchen nach ...', 'Suchtext', s) and (s <> '') then
CopyRowsContaining(StringGrid1, Form3.StringGrid2, s);
end;
erhalte folgende Fehler, magst du mir sagen was ich falsch mache?
Zitat:
Erzeugen
[Fehler] Unit1.pas(328): Undefinierter Bezeichner: 'ClearGrid'
[Fehler] Unit1.pas(331): Undefinierter Bezeichner: 'AnsiContainsText'
[Fehler] Unit1.pas(332): Undefinierter Bezeichner: 'AppendRow'
[Fataler Fehler] Unit1.pas(8): Verwendete
Unit 'Unit1' kann nicht compiliert werden