Forum: Programmieren allgemein
Delphi
by Alterauge,
3. Mai 2011
begin
if (Rows=ric) and (Rows='0') then text := 'IDEA * Verschlüsselt **';
if (Rows=ric) and (Rows='1') then d := false;
if (Rows=ric) and (Rows='2') then
begin
// Zeile in einer Exceltabelle speichern oder Log.txt
end;
if (Rows=ric) and (Rows='3') then
begin
// Zeile Ausdrucken (die aktuelle Zeile auf...
Forum: Programmieren allgemein
Delphi
by Alterauge,
3. Mai 2011
Hallo habe zwei Fragen !
procedure TFormReporting.AddRIC(ric: string; func:string; text: string );
var i,j : integer;
d,st2,mk : boolean;
t,c,k : string;
sl : TStringList;
begin
d := true;
mk := false;