Forum: Sonstige Fragen zu Delphi
Delphi
by Pr0g,
21. Jun 2004
Und wie genau soll die Tabelle aussehen?
A:+-------+--------------+
| NAME | text1 text1a |
+-------+--------------+
| NAME2 | text2 text2a |
+-------+--------------+
oder B:+-------+--------+
| NAME | text1 |
Forum: Sonstige Fragen zu Delphi
Delphi
by Pr0g,
4. Jun 2004
Das würde gehen, jedoch müsste man dazu ein Schema kennen. Gehört der Text hinter einen Namen, bis zum nächsten Namen immer zu dem "Startnamen"? Beispiel:
NAME 1
text von 1
...
NAME 2
text von 2
...
Wo soll der Text hin? Einfach hintereinander in die rechte Spalte?
Forum: Sonstige Fragen zu Delphi
Delphi
by Pr0g,
25. Mai 2004
Ja, wenn der Text mit "/" beginnt, dann wird er in die erste Spalte geschrieben, genauso wie gorßgeschriebene Wörter (vorherige Bedingung in der gleichen If Abfrage).
Forum: Sonstige Fragen zu Delphi
Delphi
by Pr0g,
25. Mai 2004
Achso, ich dachte dass jedes Wort, welches mit einem Großbuchstaben beginnt, ein Name ist, also in die erste Spalte soll. Um alle Wörter, die komplett großgeschrieben sind in die erste Spalte zu packen muss du nur die folgende Zeile:
if (s = AnsiUpperCase(s)) or (s = '/') then //großgeschrieben
durch diese ersetzen:
if (s = AnsiUpperCase(s)) or (s = '/') then //großgeschrieben
Forum: Sonstige Fragen zu Delphi
Delphi
by Pr0g,
24. Mai 2004
Hm, dass es nicht geht wundert micht. Wenn ich genau die Codes aus meinem ersten und den Text aus deinem ersten Post nehme, dann klappt es bei mir (siehe angehängtem Screenshot). Ich habe die Prozedur ein bisschen verändert, damit auch die "//////" eingetragen werden:
procedure WriteToStringGrid(Lines: TStrings; SG: TStringGrid);
var
i, c: Integer;
s: String;
begin
c := 0;
for i...
Forum: Sonstige Fragen zu Delphi
Delphi
by Pr0g,
24. Mai 2004
Hier ist mal ein Beispiel. Du brauchst ein TMemo, TButton und ein TStringGrid. Dann fügst du folgende Prozedur in dein Projekt ein:
procedure WriteToStringGrid(Lines: TStrings; SG: TStringGrid);
var
i, c: Integer;
s: String;
begin
c := 0;
for i := 0 to Lines.Count-1 do
begin