Új hozzászólás Aktív témák

• #14161 janos1988 addikt kovisoft #14157

  Új Válasz 2020-04-21 21:53:40 #14161

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  janos1988

  addikt

  válasz kovisoft #14157 üzenetére

  Végül is így sikerült közben megoldani (illetve ezek más "elrendezése" és/vagy a while do ciklus használata, de a végeredmény ua):

  program felbontas;
var
    s1,s2:string;
    i:integer;
begin
    s1:='Ez egy szep hosszu proba mondat akarna lenni.';
    s2:='';
    for i:=1 to length(s1) do
        begin
            if (s1[i]<>#32) then s2:=s2+s1[i]
                            else
                                begin
                                    writeln(s2);
                                    s2:='';
                                end;
            if i=length(s1) then writeln(s2);
        end;
end.

  Közben olvasgattam és beugrott, hogy van a C-ben használatos 0 végű sztring is a Pascalban (PChar), de azzal is hasonló megoldások születnek (születtek). Bár előnye, hogy meghatározható a vége (#0). Köszi neked is és a többieknek is!

Új hozzászólás Aktív témák