o que é Abstract Error??

Muito provável que sua classe ´Cliente´ herdou um método abstrato (provavelmente em Persistir) que precisa ser implementado por você Não há necessidade de escrever ´cliente(cli)´ pois você já declarou que cli é um objeto da classe Cliente. O objeto cli não está sendo destruído depois de ser utilizado (isso não se aplica se estiver usando Delphi.NET)

procedure TForm1.Button1Click(Sender: TObject);
var
 lista:TStrings;
begin
 lista:=TStrings.Create;
 lista.Add(´xii vai dar erro´);
 showmessage(lista.Strings[0]);
 lista.Free;
end;

TStrings é uma classe base abstrata (isso está na Ajuda do Delphi)... ela serve de base para outras classe que implementam de fato uma lista de strings. Ela não deve ser criada e nem utilizada como está no seu exemplo.

TStrings = class(TPersistent) private FDefined: TStringsDefined; FDelimiter: Char; FQuoteChar: Char; FNameValueSeparator: Char; FUpdateCount: Integer; FAdapter: IStringsAdapter; function GetCommaText: string; function GetDelimitedText: string; function GetName(Index: Integer): string; function GetValue(const Name: string): string; procedure ReadData(Reader: TReader); procedure SetCommaText(const Value: string); procedure SetDelimitedText(const Value: string); procedure SetStringsAdapter(const Value: IStringsAdapter); procedure SetValue(const Name, Value: string); procedure WriteData(Writer: TWriter); function GetDelimiter: Char; procedure SetDelimiter(const Value: Char); function GetQuoteChar: Char; procedure SetQuoteChar(const Value: Char); function GetNameValueSeparator: Char; procedure SetNameValueSeparator(const Value: Char); function GetValueFromIndex(Index: Integer): string; procedure SetValueFromIndex(Index: Integer; const Value: string); protected procedure DefineProperties(Filer: TFiler); override; procedure Error(const Msg: string; Data: Integer); overload; procedure Error(Msg: PResStringRec; Data: Integer); overload; function ExtractName(const S: string): string; function Get(Index: Integer): string; virtual; abstract; function GetCapacity: Integer; virtual; function GetCount: Integer; virtual; abstract; function GetObject(Index: Integer): TObject; virtual; function GetTextStr: string; virtual; procedure Put(Index: Integer; const S: string); virtual; procedure PutObject(Index: Integer; AObject: TObject); virtual; procedure SetCapacity(NewCapacity: Integer); virtual; procedure SetTextStr(const Value: string); virtual; procedure SetUpdateState(Updating: Boolean); virtual; property UpdateCount: Integer read FUpdateCount; function CompareStrings(const S1, S2: string): Integer; virtual; public destructor Destroy; override; function Add(const S: string): Integer; virtual; function AddObject(const S: string; AObject: TObject): Integer; virtual; procedure Append(const S: string); procedure AddStrings(Strings: TStrings); virtual; procedure Assign(Source: TPersistent); override; procedure BeginUpdate; procedure Clear; virtual; abstract; procedure Delete(Index: Integer); virtual; abstract; procedure EndUpdate; function Equals(Strings: TStrings): Boolean; procedure Exchange(Index1, Index2: Integer); virtual; function GetText: PChar; virtual; function IndexOf(const S: string): Integer; virtual; function IndexOfName(const Name: string): Integer; virtual; function IndexOfObject(AObject: TObject): Integer; virtual; procedure Insert(Index: Integer; const S: string); virtual; abstract; procedure InsertObject(Index: Integer; const S: string; AObject: TObject); virtual; procedure LoadFromFile(const FileName: string); virtual; procedure LoadFromStream(Stream: TStream); virtual; procedure Move(CurIndex, NewIndex: Integer); virtual; procedure SaveToFile(const FileName: string); virtual; procedure SaveToStream(Stream: TStream); virtual; procedure SetText(Text: PChar); virtual; property Capacity: Integer read GetCapacity write SetCapacity; property CommaText: string read GetCommaText write SetCommaText; property Count: Integer read GetCount; property Delimiter: Char read GetDelimiter write SetDelimiter; property DelimitedText: string read GetDelimitedText write SetDelimitedText; property Names[Index: Integer]: string read GetName; property Objects[Index: Integer]: TObject read GetObject write PutObject; property QuoteChar: Char read GetQuoteChar write SetQuoteChar; property Values[const Name: string]: string read GetValue write SetValue; property ValueFromIndex[Index: Integer]: string read GetValueFromIndex write SetValueFromIndex; property NameValueSeparator: Char read GetNameValueSeparator write SetNameValueSeparator; property Strings[Index: Integer]: string read Get write Put; default; property Text: string read GetTextStr write SetTextStr; property StringsAdapter: IStringsAdapter read FAdapter write SetStringsAdapter; end;

Porém a Classe TStringList Herda da Classe Tpersistent que herda da TObject A classe TstringList com era de se esperar , não implementa o método Create.. Porém este mesmo méotodo não fo idefinido como abstract na classe TPersistent O mesmo so foi declarado na classe TObject e não esta com abstract [b:60d37ec80a]massuda citou[/b:60d37ec80a] [quote:60d37ec80a]Não entendi

TClassePai = class procedure metodoMensagem;virtual; abstract; end; TClassefilha = class(TClassePai) procedure OutraCoisa; end; implementation {$R *.dfm} { TClassefilha } procedure TClassefilha.OutraCoisa; begin showmessage(´outra mensagem´); end;

procedure TForm1.Button1Click(Sender: TObject); var umObjeto:TClasseFilha; begin umObjeto:=TClasseFilha.Create; umObjeto.metodoMensagem; end;

procedure TForm1.Button1Click(Sender: TObject); 
var 
 lista:TStrings; 
begin 
 lista:=TStrings.Create; 
 lista.Add(´xii vai dar erro´); 
 showmessage(lista.Strings[0]); 
 lista.Free; 
end;

Constructing instance of ´TStrings´ containing abstract methods

var
 lista:TStrings;
begin
 lista:=TStrings.Create; //pensei que a exceção estava ocorrendo aqui
 lista.Add(´xii vai dar erro´); //mas não , ela ocorre aqui..
 showmessage(lista.Strings[0]);
 lista.Free;
end;

function TStrings.Add(const S: string): Integer; begin Result := GetCount; Insert(Result, S); end;

function GetCount: Integer; virtual; abstract;