Hallo habe zwei Fragen !
Delphi-Quellcode:
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;
t := '';
c := 'clBlack';
k := '';
with FormSettings.Settings do
for i := 1 to RowCount-1 do
begin
if (Rows[i][1]=ric) and (Rows[i][2]='0') then text := 'IDEA * Verschlüsselt **';
if (Rows[i][1]=ric) and (Rows[i][2]='1') then d := false;
if (Rows[i][1]=ric) and (Rows[i][2]='2') then
begin
// Zeile in einer Exceltabelle speichern oder Log.txt
end;
if (Rows[i][1]=ric) and (Rows[i][2]='3') then
begin
// Zeile Ausdrucken (die aktuelle Zeile auf Nadeldrucker ausdrucken)
end;
if (Rows[i][1]=ric) and (Rows[i][5]='1') then c := 'clBlack';
if (Rows[i][1]=ric) and (Rows[i][5]='2') then c := 'clRed';
if (Rows[i][1]=ric) and (Rows[i][5]='3') then c := 'clGreen';
if (Rows[i][1]=ric) and (Rows[i][5]='4') then c := 'clBlue';
if (Rows[i][1]=ric) and (Rows[i][5]='5') then c := 'clPurple';
if (Rows[i][1]=ric) and (Rows[i][5]='6') then c := 'clOlive';
if (Rows[i][1]=ric) and (Rows[i][5]='7') then c := 'clFuchsia';
if (Rows[i][1]=ric) and (Rows[i][5]='8') then c := 'clTeal ';
if (Rows[i][1]=ric) and (Rows[i][5]='9') then c := 'clGray';
if (Rows[i][1]=ric) and (Rows[i][3]='Warn') then
begin
sndPlaySound('C:\Windows\Media\edp1.wav',
SND_NODEFAULT Or SND_ASYNC Or SND_LOOP);
FormMain.AdvGlowButton8.Appearance.BorderColor:=clred;
FormMain.AdvGlowButton8.Appearance.ColorTo:=clwhite;
FormMain.AdvGlowButton8.Appearance.ColorMirrorTo:=clwhite;
FormMain.AdvGlowButton8.Appearance.ColorMirror:=clwhite;
FormMain.AdvGlowButton8.Appearance.Color:=clwhite;
FormMain.AdvGlowButton8.Font.Color:=clred;
end;
if (Rows[i][1]=ric) and (Rows[i][3]='Warn') then k := '<p align="center"><img src="idx:0"></p>';
if (Rows[i][1]=ric) and (Rows[i][3]='Info') then k := '<p align="center"><img src="idx:1"></p>';
if (Rows[i][1]=ric) and (Rows[i][3]='Key') then k := '<p align="center"><img src="idx:2"></p>';
if (Rows[i][1]=ric) and (Rows[i][3]='Feu') then k := '<p align="center"><img src="idx:3"></p>';
if (Rows[i][1]=ric) and (Rows[i][3]='OE') then k := '<p align="center"><img src="idx:4"></p>';
if (Rows[i][1]=ric) and (Rows[i][3]='SQL1') then k := '<p align="center"><img src="idx:5"></p>';
if (Rows[i][1]=ric) and (Rows[i][3]='SQL2') then k := '<p align="center"><img src="idx:6"></p>';
if (Rows[i][1]=ric) and (Rows[i][3]='DME') then k := '<p align="center"><img src="idx:7"></p>';
if (Rows[i][1]=ric) then t := Rows[i][4];
end;
Frage 1 : Zeile in einer Exceltabelle speichern oder Log.txt
Frage 2 : Zeile Ausdrucken (die aktuelle Zeile auf Nadeldrucker ausdrucken)
Bitte wenn Möglich, die Antworten mit Quelltext Anzeigen!
Danke