Jak napisać obsługę prametrów z kilkoma spacjami występującymi jeden po drugim
0
0
W OnCrate Formy dajesz
procedure TForm1.FormCreate(Sender: TObject);
var
n: Integer;
begin
Memo1.Lines.Clear;
for n:=1 to ParamCount do
begin
Wykonaj(ParamStr(n));
end;
end;
i dorabiasz sobie
procedure Wykonaj(Co: String);
begin
if Co='komenda' then Costam1;
if Co='kolor' then ZamienKolor;
end;
i takie tam. Moze jest i lepsze rozwiazanie, ale na razie tylko to mi do lba przychodzi.-------[ Delphi 6 Rulez 4 Ever!, przynajmniej do czasu gdy naucze sie C++ :) ]------
0
Tam w tym kodzie linijka Memo1.Lines.Clear; jest nie potrzebna, to pozostalosc po testach :)-------[ Delphi 6 Rulez 4 Ever!, przynajmniej do czasu gdy naucze sie C++ :) ]------