Einzelnen Beitrag anzeigen

Benutzerbild von jaenicke
jaenicke

Registriert seit: 10. Jun 2003
Ort: Berlin
9.360 Beiträge
 
Delphi 11 Alexandria
 
#22

AW: Erläuterung was "native unicode string" ist?

  Alt 11. Jul 2011, 14:36
jetzt stehe ich natürlich vor nem riesenproblem, weil ich seit ca. 4 jahren alle projekte mit TStringlisten fahre, da sich die daten herrlich sammeln lassen.
Noch herrlicher aber ohne...
Denn der Compiler kann dir dort bei Tippfehlern nicht helfen, so dass sich da leicht versteckte Probleme einschleichen können. Qualitativ guter Quelltext sieht anders aus...

Ein Beispiel nach deinem Quelltext:
Delphi-Quellcode:
type
  TGraphicContents = record
    Header: WideString;
    SubLine: WideString;
    TeamA: WideString;
    TeamA: WideString;
    Footer1: WideString;
    Footer2: WideString;
    Footer3: WideString;
  end;

procedure Tmatchid.btn_showClick(Sender: TObject);
var
  GraphicData: TGraphicContents;
begin
  // Setzen der Daten
  GraphicData.Header := ed_header.Text;
  GraphicData.SubLine := ed_subline.Text;
  GraphicData.TeamA := ed_team_a.Text;
  GraphicData.TeamB := ed_team_b.Text;
  GraphicData.Footer1 := ed_footer_1.Text;
  GraphicData.Footer2 := ed_footer_2.Text;
  GraphicData.Footer3 := ed_footer_3.Text;
  //schicken der inhalte zum laden der grafik
  form1.TS_AKI_ProviderUC1.ShowGraphic('match_id.gse', 1, GraphicData, LogoString, PropList, 0, 'IN', True);
end;
Ganz nebenbei zum Stil:
Unterstriche in Bezeichnern sind äußerst unüblich, es gibt auch Groß- und Kleinschreibung. Statt ed_header wäre edHeader oder edtHeader schöner (auch wenn manche die ungarische Notation an sich schlecht finden, ich finde sie bei Komponenten sehr sinnvoll).
Sebastian Jänicke
Alle eigenen Projekte sind eingestellt, ebenso meine Homepage, Downloadlinks usw. im Forum bleiben aktiv!
  Mit Zitat antworten Zitat