All pastes #159291 Raw Edit

Untitled

public text v1 · immutable
·published 2006-09-02 22:20 UTC
rendered paste body
var s:  string;i:integer;
begin
setlength(s,6);
for i:=1 to 6 do
begin
if TLabel(FindComponent('label' + IntToStr(i))).Caption[1] = '_' then
s[i]:=' ' else
s[i]:=TLabel(FindComponent('label' + IntToStr(i))).Caption[1];
end;
edit1.Text:= s;