Herzlich willkommen in der Delphi-PRAXiS, Marcel.
Für dich ist es vielleicht am einfachsten, wenn du so vorgehst:
Delphi-Quellcode:
uses
Printers;
procedure PrintNamedValues(list: TStringList);
var
i: Integer;
begin
AssignPrn(output);
Rewrite(output);
Printer.Canvas.Font.Name := 'Courier New';
Printer.Canvas.Font.Size := 10;
for i := 0 to Pred(list.Count) do
WriteLn(list.Names[i]:30, list.ValueFromIndex[i]);
CloseFile(output);
end;
procedure TDemoForm.DemoButtonClick(Sender: TObject);
var
list: TStringList;
begin
list := TStringList.Create;
list.Values['Eingabe'] := 'Ergebnis';
PrintNamedValues(list);
list.Free;
end;
Es gibt aber noch viele andere Wege.
Freundliche Grüße vom marabu