Hallo,
ich versuch gerade ein Memo mit Daten aus einer TStringList zu füttern, jedoch verweigert dat Memo die Annahme mit eifrigen nicht anzeigen.
Warum ich eine Memo mit einer TStringList füllen möchte?
Ich muss die Daten vorher aufbereiten und das ist für mich der "bequemste" weg.
So nun zum Quellcode:
Die Funktion die mir die Daten bereitstellt:
Delphi-Quellcode:
function TConfiguration.getData: TStringList;
var
i: Integer;
sBuffer: String;
aMotdItems: TArray;
slTemp: TStringList;
begin
sBuffer := '';
slTemp := TStringList.Create;
try
for i := 0 to slConfig.Count - 1 do begin
sBuffer := sBuffer + slConfig[i];
end;
sBuffer := Copy(sBuffer, (Pos('{', sBuffer)+1));
sBuffer := Copy(sBuffer, 0, (Pos('}', sBuffer)-1));
aMotdItems := explode('"', sBuffer, 0);
// ich brauch den alten Buffer nicht mehr, also weg damit.
sBuffer := '';
for i := 0 to Length(aMotdItems) - 1 do begin
if (Trim(aMotdItems[i]) <> ',') and (Trim(aMotdItems[i]) <> '') then begin
// Daten in die Stringlist packen.
slTemp.Add(Trim(aMotdItems[i]));
end;
end;
finally
// Array verarbeitet, also länge auf 0
SetLength(aMotdItems, 0);
// hier gebe hier die ganze StringList als "return" Value an.
Result := slTemp;
// Tschüss Stringlist, war schön mit dir zu arbeiten.
slTemp.Free;
end;
end;
Und so probiere ich die TStringList in das Memo zu bekommen:
memoConfiguration.Lines := oConfiguration.getData;
Warum zum Teufel mag der des nicht?
Die Stringlist ist mit 5 Werten gefüllt. (Können aber mal mehr oder mal weniger sein.)
LG Toby