Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Object-Pascal / Delphi-Language (https://www.delphipraxis.net/32-object-pascal-delphi-language/)
-   -   Delphi Buchstabenmatrix erstellen?! (https://www.delphipraxis.net/46772-buchstabenmatrix-erstellen.html)

phlux 31. Mai 2005 12:50


Buchstabenmatrix erstellen?!
 
Hallöchen!
Irgendwie steh ich aufn schlauch :stupid: Also ich möchte eine Buchstabenmatrix erstellen die so ungefähr aussieht:
Code:
a a a
a a b
a a c

a b a
a b b
a b c

...
usw., dafür habe ich ein Array vom Typen Char mit den Buchstaben a,b,c. Tja und jetzt verließen sie ihn, bzw bin ich schon(!) mit meinem Latein am ende :lol: muss wohl am wetter liegen :roll: Naja wie kann ich denn jetzt daraus oben gezeigt Matrix bauen??

mfg phlux :hi:

Kroko1999 31. Mai 2005 13:19

Re: Buchstabenmatrix erstellen?!
 
Delphi-Quellcode:
type
  TChar3Array = array[0..2,0..2] of Char;

procedure FillArray (var A: TChar3Array; S: String);
var
  I,J,P,L: Word;
begin
  L := Length (S);
  for J := 0 to 2 do
    for I := 0 to 2 do
     if P<=L then
       begin
         A[I,J] := S[P];
         Inc (P);
       end;
end;

FillArray (A,'aaaaaaabc');

phlux 31. Mai 2005 13:32

Re: Buchstabenmatrix erstellen?!
 
Hallo Kroko!
Danke für den Code, jetzt hab ich das Prinzip verstanden :)

mfg phlux


Alle Zeitangaben in WEZ +1. Es ist jetzt 06:52 Uhr.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz