ParamString

0

Jak napisać obsługę prametrów z kilkoma spacjami występującymi jeden po drugim

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++ :) ]------

1 użytkowników online, w tym zalogowanych: 0, gości: 1, botów: 0