Forum: Object-Pascal / Delphi-Language
Delphi
by Klaus01,
3. Mär 2006
function vergleicheStringsN(s1, s2:string; n:Word): Boolean;
var i: Word;
function delLZ(s: string): string;
var ss: string;
i, j: Word;
begin // hier auch einen Haltepunkt setzen
j:=0; ss:='';
for i:=1 to Length(s) do
Forum: Object-Pascal / Delphi-Language
Delphi
by Klaus01,
3. Mär 2006
Hallo Mario,
if vergleicheStringsN(Label27.Caption, DBEdit21.Text, 50){=True} then
begin
Table1.Edit;
DBEdit17.Text:='Bezahlt';
DBText5.Font.Color:=clYellow;
Button1Click(nil);
end
Forum: Object-Pascal / Delphi-Language
Delphi
by Klaus01,
3. Mär 2006
So, habe das ganze mal etwas eingerückt und wenn Du jetzt noch sagst
was die procedure machen soll und mit welchen Werten sie aussteigt
dann kann man vielleicht auch besser helfen.
Grüße
Klaus
procedure TRechnung.Button3Click(Sender: TObject);
begin