Forum: Sonstige Fragen zu Delphi
Delphi
by Tpercon,
27. Aug 2003
Wenn dir was daran unklar ist, dann frage.
Forum: Sonstige Fragen zu Delphi
Delphi
by Tpercon,
22. Aug 2003
Hier hast du so eine umständliche Lösung, die deinen Ansprüchen genügen sollte:
procedure TForm1.Button1Click(Sender: TObject);
var i, j: integer;
s: string;
ts: TStringList;
begin
ts := TStringList.Create;
try
Caption := 'Starte';
for i := 0 to Memo1.Lines.Count - 1 do
Forum: Sonstige Fragen zu Delphi
Delphi
by Tpercon,
21. Aug 2003
Ich finde deine Methode etwas sehr umständlich, probier mal das:
private
numbers: array of integer;
{ Private-Deklarationen }
...
procedure TForm1.Button1Click(Sender: TObject);
var i, j: integer;
function inarray(number: integer): boolean;