for n := 1 to StrToInt(seriale1.SiC_PunchingCounter) do
if (seriale1.SiC_PunchingCounter <> '0') then
seriale1.SiC_PunchingCounter <> '0'
var n: Integer; s: string; begin s := ''; for n := 1 to StrToInt(seriale1.SiC_PunchingCounter) do if (seriale1.SiC_PunchingCounter <> '0') then //RichEdit1.Lines.Append('' + seriale1.SiC_PunchingCodeNumbers[n]); s := s + seriale1.SiC_PunchingCodeNumbers[n]; RichEdit1.Lines.Text := s; end;
var
n: Integer;
s: string;
begin
s := '';
if (seriale1.SiC_PunchingCounter <> '0') then
for n := 1 to StrToInt(seriale1.SiC_PunchingCounter) do
s := s + seriale1.SiC_PunchingCodeNumbers[n];
RichEdit1.Lines.Text := s;
end;
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionMerci
voici le code adapté à mon besoin
...