Forum: Algorithmen, Datenstrukturen und Klassendesign
Delphi
by borncrush,
2. Jul 2012
Es konnte definitiv kein Else-Fall geben. Aber ich habe trotzdem, leider ohne Erfolg, ein Else-If-Konstrukt eingebaut.
if leftstr(ListView1.Items.Item.SubItems.Strings, 1) = '1' then begin
//tempCast := pchar('"' + tempWert + '"');
//xArray.VPChar := pchar(tempCast);
xArray.VPChar := pchar(tempWert);
xArray.VPChar := pchar('"' +...
Forum: Algorithmen, Datenstrukturen und Klassendesign
Delphi
by borncrush,
2. Jul 2012
Naja eigentlich wird es dann bei Format wiederverwendet. Da wird dann "Memo1.Lines.Add(Format(......)..)" aufgerufen.
Aber vielleicht ist die Schleife das Problem. Ich verwende sozusagen die eine Array Deklaration immer wieder.
Ich habe mal die ganze Prozedur dargestellt:
var i, iarray, istart: integer;
xArray: array of tvarrec;
tempFelder: tstringlist;
tempWert, tempCast: string;...
Forum: Algorithmen, Datenstrukturen und Klassendesign
Delphi
by borncrush,
2. Jul 2012
Danke für die Antworten.
Meinst du mit lokalem String folgendes (was leider auch nicht klappt)?
tempCast := pchar('"' + tempWert + '"');
xArray.VPChar := pchar(tempCast);
(wobei tempCast,tempWert:String)
Forum: Algorithmen, Datenstrukturen und Klassendesign
Delphi
by borncrush,
2. Jul 2012
Herzhafte Laiengrüße ins Forum!
Ich scheitere gerade an den PChar's. Grausam diese Zeigertypen, aber egal.
Ziel ist es ein dyn. Array vom Typ TVarRec in die Funktion Format zu übergeben:
Variable:
xArray: array of TVarRec;