Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by SirThornberry,
8. Mai 2004
Ich glaub da hat borland was dagegen. Kannst es ja mal mit ner mail an borland versuchen
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by SirThornberry,
7. Mai 2004
Hmm, eigentlich Neues Thema = Neuer Thread.
tritt der fehler nur auf wenn der style auf vsreport ist?? Und wenn du den Style wieder zurück stellst kommt der Fehler nicht mehr???
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by SirThornberry,
7. Mai 2004
eventuell hast du noch keine Columns angelegt??!?
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by SirThornberry,
7. Mai 2004
nicht
for i := 1 to stringliste.count do
sondern
for i := 0 to stringliste.count - 1 do
da das erste item der index 0 ist
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by SirThornberry,
7. Mai 2004
genau, das ist die funktion die s14 gepostet hat. bei seiner variante musst du auch jede zeile nochmal in eine stringliste aufsplitten. Man könnte auch noch die unperfomantere Variante nehmen und sich jedes Element extra holen. Hab da glaube irgendwann mal ne funktion gepostet die "splitOutIndex" oder so hieß. Allerdings ist die funktion noch nicht geschwindigkeits optimiert...
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by SirThornberry,
7. Mai 2004
DataCool war so freundlich meine Funktion noch ein bischen zu verbessern - THANKS
procedure splitString(const Source: String; const Delimiter: String; var Dest: TStringlist);
var count: Integer;
LStartpos, LEndepos, LSourcelength: Integer;
LDelimiterLength : Integer;
begin
Dest.Clear;
count := 1;
LStartpos := 0;
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by SirThornberry,
7. Mai 2004
@s14: hast recht, für die einzelne Zeile reicht nadürlich nen StringReplace...
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by SirThornberry,
7. Mai 2004
@s14: Auf den ersten Blick ne supi variante ABER:
versuch mal
Stringliste.Add('abc'#13#10'def');
Ergebnis davon ist das es in einem Item ist:
Wenn du allerdings mit deinem Stringreplace arbeitest wird es in zwei items aufgeteilt.
Wenn du jetzt folgenden String hast
Item1
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by SirThornberry,
7. Mai 2004
@DataCool: Nix gegen dich persönlich aber deine Funktion ist ziemlich unperformant da du mit copy ständig nen riesen string neu zusammensetzt... Von der Performance her sollte folgende Procedure um einiges besser sein..
procedure splitString(const Source: String; const Delimiter: String; var Dest: TStringlist);
var count: Integer;
LStartpos, LEndepos, LSourcelength: Integer;
begin
...