Einzelnen Beitrag anzeigen

Praktikant

Registriert seit: 24. Sep 2003
131 Beiträge
 
Delphi 5 Enterprise
 
#6

Re: An Monatsanfang neue Tabelle erstellen

  Alt 1. Okt 2003, 10:37
Problem:
Wie kann ich überprüfen, ob die Tabelle mit variablem Namen existiert?
Bekomme es nur mit festem Namen hin.
Habe es mal so probiert:
Delphi-Quellcode:
procedure TFormloggen.FormActivate(Sender: TObject);
var Present: TDateTime;
    Year, Month, Day: Word;
begin
  Present:= Now;
  DecodeDate(Present, Year, Month, Day);
  EditTime.Text := IntToStr(Month)+'_'+IntToStr(Year)+'_logfile';

//Evtl. vorhandene Tabelle nicht überschreiben
if not Table*hier die Variable die ich so nicht machen darf*.Exists then
begin
  with Table***var*** do
  begin
    .
    .
    .
Problem gelöst!
Folgendermassen hab ich es gemacht. Dem Editfeld 'EditTime' habe ich den Dateinamen zugewiesen. Nun einfach eine if-Abfrage, in welcher der Tabellenname mit dem editfeld verglichen wird:
  if TableLogfile.TableName <> EditTime.Text then
  Mit Zitat antworten Zitat